Discussion :

[NEC14]

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

[NEC14]

J'ai trouvé la réponse. En fait je n'ai rien inventé elle m(avais déjà été suggérée mais je ne m'en suis pas rappelé sur le coup. Je me suis précipité.

Merci à Qwazerty qui me l'a donné.

Dans un module j'ai ajouté

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Public MdPok as Boolean

Dans ThisWorkBook_Open j'ai ajouté l'initialisation de cette variable

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
MdPok = False

Dans mon code lorsque l'utilisateur a fait la bonne saisie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
MdPok = True

Avant de lancer la fenêtre du mot de passe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
If Not MdPok Then
Load UFpasse
etc.

[Krovax]

Je pense qu'un variable static peux peut être faire l'affaire.

Regarde ce petit exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub CommandButton1_Click()
Dim rep As String
Static deja As Boolean
 
 
If Not deja Then rep = InputBox("MdP?")
If rep = "Bob" Or deja Then
   deja = True
   MsgBox "Vous êtes connecté"
Else
   MsgBox "Erreur"
End If
End Sub

Lors du premier lancement deja est a faux car tout juste initialisé, et si elle est mise a vrai elle le sera a chaque lancement de cette procédure.

Edit : arf on s'est croisé le temps que je teste. Mais je préfère la variable static les public il y a toujours un risque de se planter et de la modifier dans une autre procédure là la static est propre a celle ci et pas modifiable par une autre procédure

[NEC14]

Bonjour Krovax,

J'ai testé. C'est plus concis.
Merci beaucoup