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.
 

Discussions similaires

Réponses
16
Affichages
965

Statistiques des forums

Discussions
311 540
Messages
2 080 526
Membres
101 234
dernier inscrit
Layani89