Discussion :

[hawk91]

Bonjour à tous, j'ai créer un CommandButton et j'aimerai que lorsque que l on appuie dessus, cela demande un mot de passe.
Je vois qu'on parle d'InputBox mais.. ou le trouve t on?
Merci

[Krovax]

Techniquement ce n'est pas quequle chose que tu "trouve" comme les commandebutton

Regarde cet exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub test()
Dim a As Variant
 
a = InputBox("Entrer un nomtre : ")
Do While Not (IsNumeric(a))
 
   a = InputBox("Plz try again")
Loop
    MsgBox ("Voici son carré : " & a ^ 2)
 
End Sub

Sinon tu peux essayer de faire apparaitre une texte box et dans ces propriété tu peux Modifier la propriété PaswordChar qui permet de remplacer a l'écran les caractères tapé par le caractère de ton choix

[hawk91]

Hum encore un défi rien ne peux être simple, lol
C'est dommage car le CommandButton avec password intégré je trouvais ça bien.
Je regarde ça merci

[Krovax]

Tu peux dans ton command buton mettre quelque chose comme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
dim mdp as integer
mdp=inputbox("Votre mot de passe :")

Et ensuite comparer mdp à une certaine valeur. Mais si tu met la valeur dans la macro il suffit de regarder l'éditeur de macro pour le voir. J'ai cru comprendre que certain vont lire le mot de passe dans un fichier sur le réseaux. Mais comme cela à été dit mille fois rien de ce qui est fait avec VBA n'est sure. Tu peux tout juste empêcher l'utilisateur de dimanche de fouiner trop facilement mais guère plus

[hawk91]

Oui à priori c'est ce que j'ai cru comprendre mais si je met ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
dim mdp as integer
mdp=inputbox("Votre mot de passe :")

Comment et ou faire pour qu'il le compare?

Merci

J'ai bien indiqué ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Private Sub CommandButton12_Click()
Dim mdp As Integer
mdp = InputBox("Votre mot de passe :")
UserForm3.Show
 
End Sub

Mais comment lui donner le bon mdp?

[Krovax]

mdp contient ce que l'utilisateur ecrit l'input box

Si ton mon de passe c'est Frivole

Il suffit de faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If mdp<>"Frivole" then
msgbox " Le mot de passe n'est pas corect"
endif