Protection feuilles non vérrouillées en vba
Bonjour,
Je veux protéger toutes les feuilles de mon classeur qui ne sont pas protégées à la fermeture du classeur.
J'ai mis le code suivant :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
For i = 1 To Sheets.Count
If Worksheets(i).Protect = False Then
Sheets(i).Protect Password:="OBCCPWD", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingRows:=True, AllowFiltering:=True, AllowUsingPivotTables _
:=True
End If
Next i
End Sub
Cela me protège bien les feuilles non protégées mais ça ne me prend pas le mot de passe.
Je ne comprends pas ce qui cloche.
Merci pour votre aide
Je veux protéger toutes les feuilles de mon classeur qui ne sont pas protégées à la fermeture du classeur.
J'ai mis le code suivant :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
For i = 1 To Sheets.Count
If Worksheets(i).Protect = False Then
Sheets(i).Protect Password:="OBCCPWD", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingRows:=True, AllowFiltering:=True, AllowUsingPivotTables _
:=True
End If
Next i
End Sub
Cela me protège bien les feuilles non protégées mais ça ne me prend pas le mot de passe.
Je ne comprends pas ce qui cloche.
Merci pour votre aide
