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