XL 2019 Tentative mot de passe 2 fois

[Bakhti]

salut
prière de me donner le code vba pour une tentative de mot de passe a 2 fois . pour la 3 -ème tentative le fichier se ferme automatiquement
merci a vous

 

[JBARBE]

Bonjour à tous,
Peut-être comme ceci ( enregistrer le fichier sur votre ordi )

Sub Ouvrir_feuille_1()
Dim MDP, i As Long, A As Long
A = 1
For i = 1 To 4
i = A
If A <=3 Then
MDP = InputBox("Veuillez indiquer le mot de passe", "SVP")
If MDP = 1234 Then
Sheets(1).Visible = True
Sheets(1).Select
Exit Sub
Else
MsgBox " Mot de passe incorrect"
A = A + 1
End If
ElseIf A > 3 Then
MsgBox " Mot de passe incorrect ! C'est la 3éme tentative le fichier va se fermer"
Call Auto_Close
End If
Next i
End Sub

Sub Auto_Close()
Dim wb As Workbook
For Each wb In Workbooks 'boucle sur tous les classeurs ouverts
wb.Close True 'fermeture du classeur avec sauvegarde
Next
End Sub

 

[job75]

Bonsoir Bakhti, JBARBE,

2 solutions, avec et sans UserForm.

Sans UserForm, le code dans ThisWorkbook :

Private Sub Workbook_Open()
Dim mdp$, x$, n As Byte
mdp = "toto" 'mot de passe à adapter
Do
    x = Application.InputBox(IIf(n, "Il vous reste 1 essai :", "Vous avez droit à 2 essais :"), "Mot de passe")
    n = n + 1
Loop While x <> mdp And n < 2
If x <> mdp Then Application.OnTime 1, Me.CodeName & ".Fermer"
End Sub

Sub Fermer()
Me.Saved = True
If Workbooks.Count = 1 Then Application.Quit Else Me.Close
End Sub

Avec UserForm, le code dans ThisWorkbook :

Private Sub Workbook_Open()
UserForm1.Show
End Sub

Sub Fermer()
Me.Saved = True
If Workbooks.Count = 1 Then Application.Quit Else Me.Close
End Sub

et dans l'UserForm :

Const mdp$ = "toto" 'mémorise la variable mdp, à adapter

Private Sub CommandButton1_Click()
Static n As Byte 'mémorise la variable
n = n + 1
If TextBox1 = mdp Or n > 1 Then Unload Me Else Label1 = "Il vous reste 1 essai :": TextBox1 = "": TextBox1.SetFocus
End Sub

Private Sub TextBox1_Change()
If TextBox1 = mdp Then Unload Me 'évite de passer par le bouton
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If TextBox1 <> mdp Then Application.OnTime 1, "ThisWorkbook.Fermer"
End Sub

A+

 

[Bakhti]

j'arrive pas a appliqué votre code ; voila mon fichier prière de me le reglé svp
nom d'utilisateur : MBWolrd
mot de passe : MB2021

je veux avoir une tentative de mot de passe a 2 fois . pour la 3 -ème tentative le fichier se ferme automatiquement . merci beaucoup

 

[job75]

je veux avoir une tentative de mot de passe a 2 fois . pour la 3 -ème tentative le fichier se ferme automatiquement .

Manque de logique : si la 2ème tentative n'est pas correcte le fichier doit se fermer immédiatement.

 

[JBARBE]

Bonjour à tous, job75, Bakhti
Il y a comme un défaut dans ton fichier :
J'ai pourtant bien mit :
nom d'utilisateur : MBWolrd
mot de passe : MB2021

 

[JM27]

Bonjour

les autres mot de passe sont dans la feuille masquée
MBWorld=MB2021
User1 =1
User2=2
etc

Sachant que ces mots de passe sont facilement violables

 

[Bakhti]

Bonjour à tous, job75, Bakhti
Il y a comme un défaut dans ton fichier :
J'ai pourtant bien mit :
nom d'utilisateur : MBWolrd
mot de passe : MB2021

Bonjour à tous, job75, Bakhti
Il y a comme un défaut dans ton fichier :
J'ai pourtant bien mit :
nom d'utilisateur : MBWolrd
mot de passe : MB2021
Regarde la pièce jointe 1113605

désolé
voila nom d'utilisateur : MBWorld

 

[JBARBE]

Bonjour

Sachant que ces mots de passe sont facilement violables

Re,
En effet pour un initié un mot de passe dans le VBAProject ne servira à rien !
Mais bon, si tu connais bien ces utilisateurs de ce programme ( petites connaissances d'Excel ) tu peux essayer de mettre un mot de passe dans le VBAProject !
Hélas, il y a peut-être dans ceux-ci des cracks du Web !
En bref, tu n'as pas le choix !
Bonne journée !