XL 2016 Protection de plusieurs feuilles par macro + autorisation de modification

[Keamy33]

Bonjour,


J'ai un classeur avec plusieurs feuilles identiques (une par commercial) que j'ai protégées grâce à une macro.

Cependant, j'aimerais que les utilisateurs puissent changer le format des cellules verrouillées, faire des tris et utiliser les filtres.

Étant novice en VBA, je n'arrive pas à le faire.


Voici ma macro:

Sub Verrouiller()
Dim nombre As Integer
nombre = ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False
For i = 1 To nombre
Worksheets(i).Protect
Next i
End Sub

Sub Déverrouiller()
mdp = InputBox("Entrer le mot de passe :", "Déverrouillage de l'ensemble des Feuilles")
If mdp <> "COMPTA" Then
MsgBox "Erreur Mot de Passe ! Attention", vbCritical + vbOKOnly, "Erreur"
Exit Sub
End If
For i = 1 To Sheets.Count
Sheets(i).Unprotect PassWord:="COMPTA"
Next
End Sub


Merci d'avance pour votre aide

 

[sylvanu]

Bonjour Keamy, et bienvenu(e) sur XLD.
Lorsqu'on protège une feuille on dispose d'options :

Parmi elles il suffit de cocher Format, Tri, Filtre. Ces options étant conservées, une fois mises cela ne change pas le VBA.