Mot de passe (*******)
Résolu
Nero86
Messages postés
14
Statut
Membre
-
Nero86 Messages postés 14 Statut Membre -
Nero86 Messages postés 14 Statut Membre -
Bonjour,
Je suis en train de créer une BDD pour la gestion des heures du personnel. Mon problème est le suivant,
j'ai un menu principal avec des boutons de commande et sur un bouton de commande j'ai mit un mot de passe avec VBA:
Private Sub Commande1_Click()
Dim strPassword
strPasswd = InputBox("Entrer mot de passe!", "Restricted Form")
'Check to see if there is any entry made to input box, or if
'cancel button is pressed. If no entry made then exit sub.
If strPasswd = "" Or strPasswd = Empty Then
MsgBox "No Input Provided", vbInformation, "Required Data"
Exit Sub
End If
'Si mot de passe correcte alors ouvrire le formulaire
'Si mot de passe incorrecte alors afficher message et exit sub
If strPasswd = "blabla" Then
DoCmd.OpenForm "Formulaire_formulaires", acNormal
Else
MsgBox "Vous n'êtes pas autorisé d'entrer dans ce formulaire!", _
vbOKOnly, "Important Information"
Exit Sub
End If
End Sub
Le problème est que quand je entre le mot de passe il ne le masque pas et j'aimerai que le mot de passe soit masqué ainsi ******. Si quelqu’un pourrait m’aider je vous en serais très reconnaissant
Merci à l'avance.
Je suis en train de créer une BDD pour la gestion des heures du personnel. Mon problème est le suivant,
j'ai un menu principal avec des boutons de commande et sur un bouton de commande j'ai mit un mot de passe avec VBA:
Private Sub Commande1_Click()
Dim strPassword
strPasswd = InputBox("Entrer mot de passe!", "Restricted Form")
'Check to see if there is any entry made to input box, or if
'cancel button is pressed. If no entry made then exit sub.
If strPasswd = "" Or strPasswd = Empty Then
MsgBox "No Input Provided", vbInformation, "Required Data"
Exit Sub
End If
'Si mot de passe correcte alors ouvrire le formulaire
'Si mot de passe incorrecte alors afficher message et exit sub
If strPasswd = "blabla" Then
DoCmd.OpenForm "Formulaire_formulaires", acNormal
Else
MsgBox "Vous n'êtes pas autorisé d'entrer dans ce formulaire!", _
vbOKOnly, "Important Information"
Exit Sub
End If
End Sub
Le problème est que quand je entre le mot de passe il ne le masque pas et j'aimerai que le mot de passe soit masqué ainsi ******. Si quelqu’un pourrait m’aider je vous en serais très reconnaissant
Merci à l'avance.
A voir également:
- Mot de passe (*******)
- Trousseau mot de passe iphone - Guide
- Mot de passe administrateur - Guide
- Mot de passe bios perdu - Guide
- Identifiant et mot de passe - Guide
- Voir mot de passe wifi android - Guide
4 réponses
Bonjour,
Le mieux serait de faire un petit userform avec une textbox en utilisant la propriété passwordchar (yu choisis les étoiles ou autres)
ci dessous un exemple de code à adapter tiré de mon grenier
Private Sub boitacod_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then
verifier ' vers procédure de décryptage du pwd inscrit
Else
boitacod.PasswordChar = "*"
code = boitacod.Value
' pour débogage
Range("K4") = code
End If
End Sub
a ajouter: nettoyage du textbox (boiacod ici) en fin de procédure
Michel
Le mieux serait de faire un petit userform avec une textbox en utilisant la propriété passwordchar (yu choisis les étoiles ou autres)
ci dessous un exemple de code à adapter tiré de mon grenier
Private Sub boitacod_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then
verifier ' vers procédure de décryptage du pwd inscrit
Else
boitacod.PasswordChar = "*"
code = boitacod.Value
' pour débogage
Range("K4") = code
End If
End Sub
a ajouter: nettoyage du textbox (boiacod ici) en fin de procédure
Michel
Nero86
Messages postés
14
Statut
Membre
Bonjour Michel merci d'abord pour ton conseil, mais j'ai un problème je ne sais pas comment intégrer cet userform tel que quand je click sur le bouton de commande qu'il me demande le mode passe masqué et qu'il ouvre ainsi le formulaire.
