TheProdigy
XLDnaute Impliqué
Bonjour à tous,
Je voudrais ajouter une condition : Selectionner la feuille 2 si jamais la feuille 2 est déjà affichée. Cad de ne plus demander à l'utilisateur le mot de passe si déjà il a pu visualiser la dite feuille en validant le mot de passe voilà le code:
Private Sub CommandButton1_Click()
If Me.TextBox1 = "123" Then
Sheets(2).Visible = True
MsgBox "Correct. La feuille 2 est affichée"
Unload Me
Unload UserForm1
Else
MsgBox "Mot de passe incorrect. Réessayez!"
Me.TextBox1 = ""
End If
End Sub
Merci infiniment
Je voudrais ajouter une condition : Selectionner la feuille 2 si jamais la feuille 2 est déjà affichée. Cad de ne plus demander à l'utilisateur le mot de passe si déjà il a pu visualiser la dite feuille en validant le mot de passe voilà le code:
Private Sub CommandButton1_Click()
If Me.TextBox1 = "123" Then
Sheets(2).Visible = True
MsgBox "Correct. La feuille 2 est affichée"
Unload Me
Unload UserForm1
Else
MsgBox "Mot de passe incorrect. Réessayez!"
Me.TextBox1 = ""
End If
End Sub
Merci infiniment