Bonjour doudou,
Toutes mes excuses pour ce long retard.
J'ai regardé le fichier que tu ma donné, et, c'est quasiment ca.
Le problème c'est que quand je rentre un bon mot de passe ca me met une erreur comme quoi c'est pas bon, mais ca m'ouvre la bonne page, le problème ,je pense(si je peux me permettre) et qu'il me sors tout de même cette erreur car il y a plusieurs mot de passe, alors j'ai essayer ""sans résultat"" de corriger ceci en écrivant cela:
Private Sub CommandButton1_Click()
If TextBox1.Value = ("p2") Then Sheets("Feuil2").Visible = True
If TextBox1.Value = ("p3") Then Sheets("Feuil3").Visible = True
If TextBox1.Value = !["p2"] Or !["p3"] Then
MsgBox "Mot De Passe Invalide, Veuillez Essayer à Nouveau", vbCritical, "ERREUR SUR MOT DE PASSE"
End If
Unload Me
End Sub
Mais j'ai biensur une erreur au niveau du point d'excalamation.
Quelqu'un saurait-il m'aider?
Cordialement,
kris