Ajouter un message mot de passe incorrect à une macro

Bonjour,

J'ai crée une petite macro pour faire un mot de passe à laquelle je voudrais rajouté un message mot de passe incorrect si le mot de passe est incorrecte

Sub TestPWarborescences()

Dim Message$, Titre$, Def$, WS$, PassW$

WS = "Ensemble des arborescence"

PassW = "0"

Message = "Entrez un mot de passe :"

Titre = "Accès réservé"

Def = "*****"

If Sheets(WS).Visible = True Then

Sheets(WS).Visible = False

Else

If InputBox(Message, Titre, Def) = PassW Then _

Sheets(WS).Visible = Not Sheets(WS).Visible

Sheets(WS).Activate

End If

End Sub

Pourriez vous m'aider s'il vous plaît ?

Bonjour Torre, bonjour le forum,

Peut-être comme ça :

Sub TestPWarborescences()
Dim Message$, Titre$, Def$, WS$, PassW$
WS = "Ensemble des arborescence"
PassW = "0"
Message = "Entrez un mot de passe :"
Titre = "Accès réservé"
Def = "*****"
Sheets(WS).Visible = False
If InputBox(Message, Titre, Def) = PassW Then
    Sheets(WS).Visible = True
    Sheets(WS).Activate
Else
    MsgBox "Mot de passe incorrect !"
End If
End Sub

c'est parfait, ça marche, merci beaucoup !!