Sub TestPW()
Dim Message, Title, Default, MyValue
' Définit le message.
Message = "Entrez un mot de passe"
Title = "Démo de protection simple" ' Définit le titre.
Default = "*****"
' Affiche le message, le titre et la valeur par défaut et
' lance la macro Test si le mot de passe est MyPW
For i = 1 To 3
If InputBox(Message, Title, Default) = "MyPW" Then
MsgBox " Mot de passe correct"
Exit Sub
Else
MsgBox " Mot de passe incorrect il vous reste" & " " & i - 3 & "essai(s)sur 3 essais"
End If
Next i
End Sub