Bonjour à tous,

Voilà, j'ai mis en place le code suivant qui oblige l'utilisateur à taper un mot de passe avant d'utiliser l'application. Il n'a le droit qu'à 3 essais.

Mon soucis, c'est lorsque l'utilisateur à taper correctement le mot, la demande est renouvelée à chaque fois qu'il sort de l'user.

Comment solutionner ce problème ?

Merci par avance

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
 
Option Compare Text 'majuscule & minuscule
Dim essai As Byte
 
Private Sub CommandButton1_Click()
If TxT1.Value = "MARG" Then
test1
Unload Me
MsgBox "Vous pouvez accéder à l'application", vbInformation, "Bonjour"
Else
UFpasse.Height = 67
essai = essai - 1
Label1.Caption = "Plus que..." & essai & "essais": Beep
TxT1.SetFocus: TxT1 = ""
If essai = 0 Then
MsgBox "Vous avez épuisé votre crédit!!" + Chr(10) + "Au revoir!!"
Unload Me
Application.DisplayFullScreen = False
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.Quit
End If: End If
End Sub
 
Private Sub UserForm_Initialize()
essai = 3
UFpasse.Height = 49
End Sub