mot de passe

[elise10]

bonsoir
je souhaiterais insérer un userform qui demande un mot de passe pour entrer dans mon logiciel. J'ai essayé ce code, mais cela ne fonctionne pas..

If TextBox1.Text <> "mon mot de passe" Then
MsgBox ("Mot de passe incorrect")
TextBox1.SetFocus

Else
Sheets("accueil").Select
Unload Me
End If

End Sub


Pourriez vous m'aider s'il vous plait !!

 

[phlaurent55]

Re : mot de passe

Bonsoir Elise,

peut-être en remplaçant: TextBox1.SetFocus

par Exit Sub

pas facile de te répondre sans fichier joint

essaie et dis-nous
à+

 

[elise10]

Re : mot de passe

la première solution avec userform ne fonctionne pas

 

[jeanpierre]

Re : mot de passe

Bonsoir elise10, CC, phlaurent,

Sans fichier représentatif et son code (même s'il ne fonctionne pas) ne permet guère de donner ou trouver une bonne réponse.

A toi de voir.

Bonne soirée.

Jean-Pierre

 

[Staple1600]

Re : mot de passe

Bonsoir à tous

elise10
Ton premier code ainsi rédigé fonctionne

Private Sub CommandButton1_Click()
If TextBox1 <> "mot" Then
MsgBox ("Mot de passe incorrect")
TextBox1.SetFocus
Else
Sheets(1).Select 'adapter le nom de la feuille
Unload Me
End If
End Sub

 

[kjin]

Re : mot de passe

Bonsoir,
D'après ton code, ton mot de passe serait..."mot de passe" !?
Edit : Bonsoir staple
A+
kjin

 

[elise10]

Re : mot de passe

C'est bon ca fonctionne !
merci beaucoup à tous

 

[Guiv]

Re : mot de passe

Bonjour Elise, le fil,

Ce genre de sécurité est très illusoire :il suffit par exemple de désactiver les macros pour ne plus être embêté par l'USF et le mot de passe...
Bon dimanche

Guiv