Erreur de code vba

Bonjour,

voici mon code lorsque je tape un mots de passe faux celui-ci me mets un message "erreur 1004" mots de passe invalide débogage.Je souhaiterais plutot un message qui s 'affiche me notifiant l erreur je clique sur ok et et mon fichier fichier n' est pas bloquer.

Private Sub CommandButton5_Click()
Dim MyMtPss As String
Feuil1.CommandButton5.Caption = "Déprotéger"javascript:;
ActiveSheet.Unprotect
Range("a4").Activate
If MyMtPss <> "michel" Then Feuil1.CommandButton5.Caption = "Déprotéger": Exit Sub
MsgBox "Attention, la feuille va être déprotégée"
Application.ScreenUpdating = False
Dim Feuil As Worksheet
For Each Feuil In Sheets
Feuil.Unprotect Password:="michel"
On Error GoTo Sortie
Suite:
Next Feuil
Exit Sub
Sortie:
MsgBox "La Feuille : " & Feuil.Name & " Est Protégée par UN AUTRE Mot de Passe"
GoTo Suite
Range("a4").Activate
End Sub

de plus mon message "Attention, la feuille va être déprotégée" ne s' affiche plus

je vous joint mon fichier: https://www.cjoint.com/?bzwqmGntsx

je vous remercie pour votre aide qui me sera précieuse.