sesa
XLDnaute Occasionnel
bonjour à tous,
j'ai créé un userform qui s'affiche à l'ouverture du classeur mais quand je renseigne le mot de passe et valide dans la foulée rien ne se passe.
de ce fait, je ferme l'userform avec la croix.
voici le code :
Private Sub Ok_Click()
If TextBox1.Text <> "gwen" Then
MsgBox ("Mot de passe incorrect... ")
TextBox1.SetFocus
Else
Sheets("Feuil1").Select
Unload Me
End If
End Sub
C'est mon premier souci.
Et si je souhaite protéger toutes les feuilles, je dois ajouter quelle information dans le code ?
Fichier ci joint
j'ai créé un userform qui s'affiche à l'ouverture du classeur mais quand je renseigne le mot de passe et valide dans la foulée rien ne se passe.
de ce fait, je ferme l'userform avec la croix.
voici le code :
Private Sub Ok_Click()
If TextBox1.Text <> "gwen" Then
MsgBox ("Mot de passe incorrect... ")
TextBox1.SetFocus
Else
Sheets("Feuil1").Select
Unload Me
End If
End Sub
C'est mon premier souci.
Et si je souhaite protéger toutes les feuilles, je dois ajouter quelle information dans le code ?
Fichier ci joint