Protection classeur par mot de passe

Bonjour à tous,

J'aimerais protéger et déprotéger toutes les feuilles de mon classeur excel en cliquant sur un bouton de verrouillage/ déverrouillage.

Pour le moment, les macros de verrouillage et de déverrouillage séparées fonctionnent, mais j'aimerais pouvoir à terme cliquer sur un bouton, et saisir un mot de passe si aucun n'a été préalablement saisi pour bloquer le classeur, et débloquer le classeur avec le mot de passe actuel si un mot de passe avait été préalablement été saisi.

J'espère que vous pourrez m'aider à faire cette macro de test et à la relier à un bouton de contrôle unique..

Voici le code de mes macros actuelles

Sub DeProtegeFeuilles()
Dim str$
str = VBA.InputBox("Merci de renseigner le mot de passe de l'Outil.")
Dim MaFeuille As Worksheet
For Each MaFeuille In Worksheets
Application.ScreenUpdating = False
MaFeuille.Unprotect Password:=str
Next
End Sub

Sub ProtegeFeuilles()
Dim str$
str = VBA.InputBox("Merci de renseigner un mot de passe de verrouillage de l'Outil.")
Dim MaFeuille As Worksheet
For Each MaFeuille In Worksheets
Application.ScreenUpdating = False
MaFeuille.Protect Password:=str
Next
End Sub

merci beaucoup, j'espère avoir été clair..

Bonsoir

Trouver sur le forum peut être que ça pourrais te servir ??

Cordialement