Deverouillage de toutes les feuilles

Bonjour,
je cherche à verrouiller et deverouiller toute les feuilles d'un classeur excel avec une macro , pour ce faire j'ai écrit ces lignes de codes:

Private Sub verrouiller_Click()
Dim mafeuille As Worksheet
For Each mafeuille In Worksheets
mafeuille.Select
mafeuille.Protect "aude", True, True, True
Next mafeuille
End Sub

Private Sub CommandButton1_Click()
For Each mafeuille In Worksheets
mafeuille.Select
mafeuille.Unprotect
Next mafeuille
End Sub

Le problème c'est que le mot de passe m'est demandé autant de fois qu'il y a de feuille.Y aurait'il un moyen pour que le mot de passe ne me soit demandé qu'une seule fois le mot de passe? De plus est ce qu'il serait possible de en cas de mauvais mot de passe faire boucler la demande de mot de passe?
Grand merci d'avance