J'ai créé un bouton pour protéger/déprotéger un classeur :
Private Sub CommandButton1_Click()
Dim nombre As Integer
nombre = ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False
If CommandButton1.Caption = "Déprotéger le classeur" Then
For i = 1 To nombre
Worksheets(i).Unprotect Password:="blabla"
Next i
CommandButton1.Caption = "Protéger le classeur"
ElseIf CommandButton1.Caption = "Protéger le classeur" Then
For i = 1 To nombre
Worksheets(i).Protect Password:="blabla"
Next i
CommandButton1.Caption = "Déprotéger le classeur"
End If
End Sub
le problème est que mon classeur comporte des boutons qui permettent de masquer/démasquer des lignes selon le bon vouloir de l'utilisateur. Je ne veux pas dévérouiller ces lignes car elles ne sont pas modifiables.
Malheureusement, quand le classeur est protégé, les boutons masquer/démasquer ne fonctionnent plus puisque ces lignes à démasquer/masquer sont verrouillées !
