Vérification de mot de passe en Vba

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:

---

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

---

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:

---

1 2	Public MdPok as Boolean

---

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

Code:

---

1 2	MdPok = False

---

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

Code:

---

1 2	MdPok = True

---

Avant de lancer la fenêtre du mot de passe

Code:

---

1 2 3 4

If Not MdPok Then Load UFpasse etc.

---

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

Regarde ce petit exemple

Code:

---

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

Bonjour Krovax,

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