[-RESOLUTO-]activer ComboBox par un bouton et mot de passe

[Ilino]

Bonjour forum
je souhaite activer mon ComboBox (contrôle) dans une feuille via un bouton mais avec un mot de passe
ci dessous mon code

Private Sub CommandButton4_Click()
ComboBox2.Enabled = True
End Sub

grazie

 

[Pierrot93]

Re : activer ComboBox par un bouton et mot de passe

Bonjour,

essaye peut être ceci :

Private Sub CommandButton1_Click()
ComboBox1.Enabled = InputBox("mot de passe ???") = "toto"
End Sub

bonne journée
@+

 

[Ilino]

Re : activer ComboBox par un bouton et mot de passe

Bonjour Pierrot
C'est super ça fonctionne , mais la saisie de mot de passe est visible, je le souhaite qu'il soit masqué ( en etoile par exemple **** ) si c'est possibl
GRAZIE

 

[Pierrot93]

Re : activer ComboBox par un bouton et mot de passe

Re,

il faut alors créer un userform avec un textbox en modifiant la propriété "PasswordChar", par le code on peut le faire ainsi :

TextBox1.PasswordChar = "*"

A noter de nombreux exemples présents sur le forum....

 

[Ilino]

Re : activer ComboBox par un bouton et mot de passe

Re
oky ,je vais voir et je vous joint un exemple
GRAZIE pierrot

 

[Ilino]

Re : activer ComboBox par un bouton et mot de passe

Bonjour Pierrot
ci jont ma proposition pour avis et commentaire
GRazie
Edit : PW : toto

 

[Pierrot93]

Re : activer ComboBox par un bouton et mot de passe

Re,

tu pourrais également le faire comme ceci :

Private Sub CommandButton1_Click()
Sheets("Feuil1").ComboBox1.Enabled = TextBox1 = "toto"
Unload Me
End Sub

la propriété "enabled" du combo étant placé sur "false" directement dans la fen^tre propriétés de l'objet...

 

[Ilino]

Re : activer ComboBox par un bouton et mot de passe

Re
Merci Pierrot , c'est plus simple
GRAZIE