1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
| Sub Mot_de_passe()
Dim Saisie As String
Dim Mot_de_passe As String
Dim Compteur As Integer
Mot_de_passe = "azerty"
Do
Compteur = Compteur + 1
Saisie = InputBox("Tapez votre mot de passe :")
If Compteur = 2 Then
MsgBox (" dernier essai ")
ElseIf Compteur = 3 Then
MsgBox ("vous n'avez pas accès à cette application")
ElseIf Saisie = Mot_de_passe Then
MsgBox "Acces accordé !"
Else
MsgBox "veuillez saisir à nouveau votre mot de passe !"
End If
Loop While Saisie <> Mot_de_passe
End Sub |
