Private TEST As Boolean 'déclare la variable TEST
Private Sub UserForm_Initialize() 'à l'initialisation de l'UserForm
NF = NF + 1 'incrémente NF
If NF = 4 Then: ThisWorkbook.Close: End 'si NF=4, ferme le classeur et stoppe tout code
If NF > 1 Then MsgBox "Il ne vous reste que " & 4 - NF & " essai(s) !" 'si NF est supérieur à 1, message
End Sub
Private Sub CommandButton1_Click() 'bouton "Vaslider"
Dim O As Worksheet 'déclarela variable O (Onglet)
'si l'identifiant et le mot de passe concordent (Identifiant 1 / pomme)
If Me.TextBox1.Value = "Identifiant 1" And Me.TextBox2 = "pomme" Then
For Each O In Sheets 'boucle sur tous les onglets du classeur
O.Visible = True: TEST = True 'affiche l'onglet, définit la variable TEST
Next O 'prochain onglet de la boucle
End If 'fin de la condition
'si l'identifiant et le mot de passe concordent (Identifiant 2 / poire)
If Me.TextBox1.Value = "Identifiant 2" And Me.TextBox2 = "poire" Then
For Each O In Sheets 'boucle sur tous les onglets du classeur
'si l'onglet ne se nome pas "Budget", affiche l'onglet, définit la vasriable TEST
If Not O.Name = "Budget" Then O.Visible = True: TEST = True
Next O 'prochain onglet de la boucle
End If 'fin de la condition
Unload Me 'vide et ferme l'UserForm
If TEST = False Then UserForm1.Show 'si TEST est [faux] affiche l'UserForm1
End Sub
Private Sub CommandButton2_Click()
Unload Me 'vide et ferme l'UserForm
End Sub