Enelver une protection de feuille

[dolphin]

Bon matin cher Forum,

J'aimerais savoir comment enlever les protection de toutes mes feuilles de mon fichier? J'utilise la protection lors de l'ouverture de mon fichier à l'aide de cette commande :


Private Sub Workbook_Open()

Dim WkSheet As Worksheet

For Each WkSheet In Me.Worksheets
WkSheet.Protect Password:='toto', UserInterfaceOnly:=True
Next WkSheet

End Sub


En passant merci à tous ceux qui mon aidée pour cette formule, elle est géniale. Par contre j'ai une macro qui ne fonctionne pas lorsque mes feuilles sont protégées. J'ai crée un procédule dans un module comme suit :

Public Sub deprotection()
Dim WkSheet As Worksheet

For Each WkSheet In Me.Worksheets
WkSheet.Unprotect Password:='toto'
Next WkSheet


End Sub
Excel affiche un erreur sur la commande Me.Worksheets, Pourquoi ? Étant donné que je ne comprend pas cette dernière commande, il m'est difficile de pouvoir règler ce problème. J'en appelle votre aide afin de pouvoir terminer cette dernière instruction.

Merci beaucoup, j'apprécie grandement toutes informations ou suggestions

Bonne journée :silly:

Dolphin

 

[PascalXLD]

Bonjour

Bizarre que tu sois obligé de déprotéger alors que tu as protégé en userinterfaceonly

mais remplace ton me. par rien du tout ou par ThisWorkbook.

Bon courage