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

Keamy33

XLDnaute Nouveau
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🙏
 
Dernière édition:

sylvanu

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

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

Membres actuellement en ligne

Statistiques des forums

Discussions
302 236
Messages
2 001 687
Membres
215 256
dernier inscrit
Adso