Protection feuilles excel avec mot de passe

Bonjour à tous,

Je suis nouveau sur le site, donc je ne sais pas encore bien comment ça marche.
Je cherche à protéger en même temps toutes mes feuilles excel avec un mot de passe, mot de passe que j'aimerais à avoir entrer une seule fois.

Voila le code que j'utilise :

Sub Protection()

For i = 1 To 8 (j'ai 8 feuilles)
Worksheets(i).Activate
ActiveSheet.Protect Password:="toto", DrawingObjects:=False, Contents:=True, Scenarios:=False

Next i

End Sub


Sub Déprotection()

For i = 1 To 8
Worksheets(i).Activate
ActiveSheet.Unprotect
Next i

End Sub


Le souci, c'est que je dois entrer le code "toto" pour chaque feuille quand je retire la protection, donc si quelqu'un peut m'aider...