Macro permettant la modification des plages

Bonjour à tous,

est-il possible à l'aide d'une macro de pouvoir, en une seule fois, sur toutes les feuilles du classeur de paramétrer la fonction "Permettre la modification des plages", pour les 2 colonnes V et W. En effet, par la suite, je protège ma feuille et je ne veux pas que les utilisateurs puissent modifier ses deux colonnes. Par contre, moi je peux le faire, car en utilisant cette fonction, j'ajoute sous "Autorisations.." mon nom qui est reconnut par ma session.

Mon idée était de faire une macro avec menu contextuel proposant un mot de passe pour l'autorisation et le choix de mettre les utilisateurs qui auront les droit de modifier les plages et que cela se fasse en une fois sur les toutes les feuilles.

Ensuite pour protéger toute les feuilles je suis parti sur la macro :

Sub protect_all_sheets()
top:
pass = InputBox("Mot de passe ?")
repass = InputBox("Remettre encore une fois le mot de passe")
If Not (pass = repass) Then
MsgBox "Mot de passe"
GoTo top
End If
For i = 1 To Worksheets.Count
If Worksheets(i).ProtectContents = True Then GoTo oops
Next
For Each s In ActiveWorkbook.Worksheets
s.Protect Password:=pass
Next
Exit Sub
oops: MsgBox "Apparemment des feuilles sont déjà protégées par un mot de passe. Il faut d'abord l'enlever."
End Sub