UserForm mot de passe (textbox)

[stk]

Bonjour à tous,

J'ai un créé un UserForm mot de passe pour l'accès à une application excel. Mon UserForm fonctionne sur clic d'un bouton ENTRER.
Seulement, quand le mot de passe est erronné, mon UserForm se ferme et l'utilisateur doit à nouveau cliquer sur le bouton ENTRER.

Comment faut-il faire pour que le UserForm ne se ferme pas temps que le mot de passe n'est pas ok ?

Merci à l'avance pour vos suggestions.

Voici mon code :


Private Sub Ok_Click()
If TextBox1.Text <> "xxx" Then
MsgBox ("Mot de passe incorrect... Veuillez recliquer sur le bouton ENTRER !")
TextBox1.SetFocus
Else
Sheets("Accueil").Select
End If
Unload Me
End Sub

 

[PascalXLD]

Re : UserForm mot de passe (textbox)

Bonjour

modifies ainsi

Private Sub Ok_Click()
If TextBox1.Text <> "xxx" Then
MsgBox ("Mot de passe incorrect... Veuillez recliquer sur le bouton ENTRER !")
TextBox1.SetFocus
Else
Sheets("Accueil").Select
Unload Me
End If

End Sub

 

[stk]

Re : UserForm mot de passe (textbox)

Merci beaucoup !

C'est exactement cela...

Bonne continuation

 

[Hulk]

Re : UserForm mot de passe (textbox)

Hello,

Me permets d'intervenir pour informer Stk, au cas ou tu ne saurais pas, que tu peux éviter la lecture du mot de passe lors de la saisie.

Pour ça, il te suffit d'aller dans la fenêtre des propriétés de la TextBox et dans "PasswordChar" tu mets un * ou autre caractère.

Cdt, Hulk.

 

[PascalXLD]

Re : UserForm mot de passe (textbox)

RE

Pour rebondir sur ce que dit Hulk un fil du jour :

https://www.excel-downloads.com/threads/comment-bien-proteger-le-password-dune-macro.111148/