Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !
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
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 SubPrivate Sub Workbook_Open()
UserForm1.Show
End Sub
Sub Fermer()
Me.Saved = True
If Workbooks.Count = 1 Then Application.Quit Else Me.Close
End SubConst 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 SubManque de logique : si la 2ème tentative n'est pas correcte le fichier doit se fermer immédiatement.
Re,
