Systeme de mot de passe avec erreur

Bonjour j'ai un soucis avec mon authentification dans ma macro

j'ai ceci

Sub UTILISATEURUP()

'

' UTILISATEURUP Macro

'

'

Dim mot_de_passe As String

mot_de_passe = InputBox("Tapez le mot de passe")

If mot_de_passe = "toto" Then

Sheets("INVENTAIRE").Select

Else: Exit Sub

End If

End Sub

mais le soucis ces que j'aimerai que quand un mot de passe pas le bon est entré ça affiche une msg box avec un message .. j'ai tout essayé j'y arrive pas

cdt;

Bonjour Sandoows, le forum,

j'aimerai que quand un mot de passe pas le bon est entré ça affiche une msg box avec un message

Peut-être ainsi....

Sub UTILISATEURUP()
'
' UTILISATEURUP Macro

Dim mot_de_passe As String
  mot_de_passe = InputBox("Tapez le mot de passe")
   If mot_de_passe = "toto" Then
     Sheets("INVENTAIRE").Select
  Else
    MsgBox "Mot de passe erroné !"
    Exit Sub
  End If
End Sub

Cordialement,

Sub UTILISATEURUP() ' Pour réagier a la réponse si le code est erroné

' UTILISATEURUP Macro

'

Dim mot_de_passe As String

mot_de_passe = InputBox("Tapez le mot de passe")

If mot_de_passe = "toto" Then

Sheets("INVENTAIRE").Select

Else

Msg = "Non c'est pas le bon code" ' Définit le message.

Style = vbYesNo + vbCritical + vbDefaultButton2 ' Définit les boutons.

Title = "Démonstration de MsgBox " ' Définit le titre.

' Affiche le message.

Response = MsgBox(Msg, Style)

If Rep = vbYes Then

' ici le traitement si réponse positive

' ...

Else

' ici le traitement si réponse négative

' ...

End If

End If

End Sub