Erreur de formule 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"

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 remercie pour votre aide qui me sera précieuse.

Salut le forum

Celtar, un bout de solution

Private Sub CommandButton1_Click()
Dim MotDePasse As String
Const Password = "Michel"

'Demander la saisie du mot de passe
  MotDePasse = InputBox("Enter correct password")
    If MotDePasse <> Password Then
      MsgBox "La Feuille est protégée par un autre Mot de Passe"
      Exit Sub
    End If

'Déverrouiller la feuille si le mot de passe saisi est correct
  MsgBox "Attention, la feuille va être déprotégée"
  ActiveSheet.Unprotect (MotDePasse)

End Sub

Mytå

P.S. Merci d'utiliser la balise [CODE] pour insérer un macro sur le forum

Re le forum

Pourquoi avoir effacé ta réponse et avoir mis ?

Et tu avais en plus perdu ton mot de passe, nouveau Nickname....

Mytå