compteur essais mot de passe

[isabelle lesage]

RE RE bonjour a vous tous,
comment réaliser pour le mot de passe, une valeur de 3 ou 5 essais et qu'il l'indique dans une msgbox et si après 3 ou 5 essais, enregistre et quit le fichier.
Merci
Isabelle

voici le code placé pour mon usf :

Option Explicit

Private Sub CommandButton1_Click()
End
Call allerencoderdanslisting
Unload lemotdepasse1
End Sub
Private Sub CommandButton2_Click()
Dim Chiffre As Range
Dim MonCode As String

MonCode = "2020"

Set Chiffre = ThisWorkbook.Sheets("Présentation").Range("a201")
Chiffre.Value = lemotdepasse1.TextBox1.Value

If Chiffre = MonCode Then
MsgBox "Votre code est bon, votre accés est autorisé"
Unload lemotdepasse1
Sheets("Listing").Select
Else
MsgBox "Votre code est mauvais, votre accès est refusé. RECOMMENCEZ..."
lemotdepasse1.TextBox1 = ""
Unload lemotdepasse1
End
'ThisWorkbook.Close SaveChanges:=False
End If
End Sub

 

[djessica]

merci a toi thierry pour ton aide et ta gentillesse.
Mais cependant pourrais tu me venir en aide en tentant de repondre a mes questions situées sur le poste juste avant le tien.
j'espere que les gens du forums repondront presents merci a tous !!!
a bientot djessica!!

 

[Petchy]

bonjour à tous

djessica voila la réponse pour la question A
tu supprime se code qui se trouve dans ton USF

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
'Me.Hide
MsgBox "Cette commande ne peut être exécutée sans le mot de passe." _
& vbCrLf, vbOKOnly + vbExclamation, "Fin de la commande"
Cancel = True
End If
End Sub

@ plus
Petchy

 

[djessica]

BOnjour le forum et Petchy,
j'aimerais te remercier pour ton aide et surtout pour les questions restantes qui pourrais m'aider?
c un travail que je dois faire le plus rapidement possible dc appel à la population!!
merci à tous a tres vite.