Ma macro "deprotège classeur" ne fonctionne plus

Bonjour

Je ne comprends j'utilise toujours cette macro dans ce fichier
ca marchait très bien et ce mois-ci en lançant le code suivant
ça me notifie :
erreur d'execution 1004 mot de passe non valide

Sub ProtegeClasseur()
Dim maFeuille As Worksheet
For I = 1 To Worksheets.Count
Set maFeuille = Worksheets(I)
maFeuille.Select
maFeuille.Protect "wxcvbn", True, True, True 'entre guillemets le mdp
Next

For I = 1 To 4
With Sheets(I)
.EnableAutoFilter = True
.Protect "wxcvbn", UserInterfaceOnly:=True
End With
Next
End Sub
Sub DeProtegeClasseur()
Dim maFeuille As Worksheet
For I = 1 To Worksheets.Count
Set maFeuille = Worksheets(I)
maFeuille.Select
maFeuille.Unprotect "wxcvbn" 'entre guillemets le mdp
Next
End Sub