PassWord sur ComboBox

[BLACKHAYES]

re-bonjour le forum,

Comment peut on mettre un PassWord sur une ComboBox,

J'ai une ComboBox avec plusieurs choix, mais je voudrais que l'acces a cette derniere soit verrouillé par un PassWord pour faire la modification.

 

[JNP]

Re : PassWord sur ComboBox

Salut BlackHayes 🙂,
Comme ceci peut-être

Private Sub ComboBox1_Enter()
Dim Réponse As String
Réponse = InputBox("Mot de passe ?")
If Réponse <> "MdP" Then Me.TextBox1.SetFocus
End Sub

Bon courage 😎

 

[BLACKHAYES]

Re : PassWord sur ComboBox

bonjour JNP,

ca fonctionne, j'ai bien la boite de dialogue, mais meme si on met rien ca donne acces quand meme, ou n'importe quel autre mdp, ca fonctionne aussi ,,??

 

[Guest]

Bonjour,

Si tu nous donnais un fichier exemple, cela éviterait de nous faire tourner en rond...

A+

Hello JN🙂🙂

 

[Hulk]

Re : PassWord sur ComboBox

Blackeyes, Jnp, Hasco, Forum,

Sur une ComboBox, voici un modèle, sûrement améliorable, avec par exemple la contrainte de ne pouvoir saisir que trois fois le bon mot de passe, mais pas pour moi trop ch... à faire marcher correctement 😎

Attention, comme tel, il demande le mot de passe à chaque fois qu'on manipule la ComboBox, sinon, plutôt voir du côté de l'accès à l'UserForm.

Voici le code (chipé sur le net, merci à l'auteur !), la liste pour la combo est en A2:Ax

Private Sub UserForm_Initialize()

    For i = 2 To Range("A100").End(xlUp).Row
        ComboBox1.AddItem Cells(i, 1).Value
    Next i

End Sub

Private Sub ComboBox1_Change()

    Dim mdp As String
    Const mdpOk As String = "1234" 'Le mot de passe... à modifier.

    mdp = InputBox("Veuillez saisir le mot de passe svp.", "Demande du mot de passe.")
    
    If mdp <> mdpOk Then
        Select Case mdp
            Case vbNullString
                MsgBox "Annulation !"
                Unload Me
            Case Is <> mdpOk: MsgBox "Mot de passe incorrect !"
        End Select
    End If
    
    MsgBox ("Mot de passe accepté")
        
End Sub

En revanche, je suis d'accord avec la remarque d'Hasco. Il est toujours mieux de déposer un fichier.

 

[BLACKHAYES]

Re : PassWord sur ComboBox

Voici mon fichier,

Mais le probleme c'est que le mdp est sur l' usf et non sur laComboBox ???

et qu'ensuite si vous faites annuler et bien l'usf s'ouvre et la combo est en libre acces ??

 

[Guest]

Re,

Simplement avec ceci:

Private Sub UserForm_Initialize()
Me.ComboBox10.Enabled = InputBox("Mot de passe ?") = "A"
End Sub

A+

 

[JNP]

Re : PassWord sur ComboBox

Re 🙂,
Juste pour le plaisir de saluer l'ami Hulk que je n'avais pas vu depuis longtemps 😛 !
Bonne soirée 😎

 

[BLACKHAYES]

Re : Re: PassWord sur ComboBox

OK, merci Hasco,

ca fonctionne bien, mais le mdp est demandé a l'ouverture de l'usf, et moi je le voudrais seulement au clic sur ma combo;
et comment faire pour avoir des "*" a la place des vrai lettres du mdp

 

[Guest]

Bonjour,

Autre et dernier exemple.

Si cela ne va pas la soluce du grand Requin me semble la meilleur.

A+

 

[Hulk]

Re : Re: PassWord sur ComboBox

Hello tout le monde,

Merci Jnp, ça fait plaisir !

Bonne journée à tous !