mot de passe

phlaurent55

Nous a quittés en 2020

Repose en paix

• 5 Décembre 2009

• #2

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
à+

 

Vote positif 0 Vote négatif

E

elise10

XLDnaute Nouveau

• 5 Décembre 2009

• #3

Re : mot de passe

la première solution avec userform ne fonctionne pas

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 5 Décembre 2009

• #4

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 6 Décembre 2009

• #5

Re : mot de passe

Bonsoir à tous

elise10
Ton premier code ainsi rédigé fonctionne

Code:

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

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 6 Décembre 2009

• #6

Re : mot de passe

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

 

Pièces jointes

• elise10.xls

  32 KB · Affichages: 63

Vote positif 0 Vote négatif

E

elise10

XLDnaute Nouveau

• 6 Décembre 2009

• #7

Re : mot de passe

C'est bon ca fonctionne !
merci beaucoup à tous

 

Vote positif 0 Vote négatif

G

Guiv

XLDnaute Occasionnel

• 6 Décembre 2009

• #8

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

 

Vote positif 0 Vote négatif