Userform pour passwordchar

Bonjour tout le monde,

Je viens de créer un userform pour un mdp mais lorsque je valide le mot de passe est bien validé mais ne disparaît pas (box)

Pouvez-vous me corriger ce code?

Merci d'avance.

Setila

Private Sub CommandButton1_Click()

On Error Resume Next

If Sheets("lundi").Visible = True Then Exit Sub

If TextBox1 = "1234" Then

MsgBox "Mot de passe validé"

Sheets("lundi").Visible = True

Else

MsgBox "Mot de passe éroné"

TextBox1.Value = ""

UserForm1.Show 0

End If

End Sub

Bonjour,

Un essai ... pas testé ...

Private Sub CommandButton1_Click()
On Error Resume Next
If Sheets("lundi").Visible = True Then Exit Sub
If TextBox1 = "1234" Then
TextBox1.Value = ""
MsgBox "Mot de passe validé"
Sheets("lundi").Visible = True

Else
MsgBox "Mot de passe éroné"
TextBox1.Value = ""
UserForm1.Show 0
End If
End Sub

ric

Hello Ric,

La box ne disparaît pas après validation!

Mais le code est bon!

cdt

Setila

Hello Eric,

Trouvé sur le forum!!!

Il faut mettre me.hide au debut.

Merci pour ton aide.

Bonne soirée,

Setila

Bonjour,

Je n'avais pas capté que c'est le userform que tu voulais enlever.

J'avais juste enlevé le mdp après validation question de discrétion.

Mais tu as trouvé ... fantastique.

ric