Champ de saisie du mot de passe avec le contrôle zone de texte dans un formulaire personnalisé UserForm, Excel VBA

Le contrôle zone de texte ou TextBox vous permet de créer un champ de saisie de mot de passe. Les caractères qui y apparaissent sont appelés caractères d’écho et sont définis par la propriété PasswordChar.
Prenons un exemple d’une application de saisie de mot de passe simple. Il y a un champ de saisie de mot de passe et un bouton de commande. Le bouton est verrouillé lors de l’initialisation de la fenêtre. Si l’utilisateur entre le mot de passe correct dans le champ de saisie, alors le bouton est déverrouillé, s’il est faux, il est reverrouillé.
Figure: 1. Fenêtre de mot de passe


Alors, créez un formulaire sur lequel placer la zone de texte et le bouton de commande. À l’aide de la fenêtre Propriétés, définissez leurs valeurs de propriété comme indiqué dans le tableau. 2.
Tableau 2: Valeurs de propriété définies dans la fenêtre Propriétés

Objet Propriété Valeur
Userform Caption Mot de passe
Zone de texte Name TxtMotpasse
Bouton de commande Name CmdMessage
Caption Cliquez ici

Dans le module formulaire, saisissez le code suivant :

Private motdepasse As String

Private Sub UserForm_Initialize()

   cmdMessage.Enabled = False

   txtMotpasse.PasswordChar = "*"

   motdepasse = "chancelin"

End Sub

Private Sub txtMotpasse_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, _

                            ByVal Shift As Integer)

   If KeyCode = vbKeyReturn Then

       If LCase(txtMotpasse.Text) = LCase(motdepasse) Then

           cmdMessage.Enabled = True

       Else

          cmdMessage.Enabled = False

       End If

   End If

End Sub

Private Sub cmdMessage_Click()

   MsgBox "Le mot de passe est entré correctement"

End Sub

Commentaires :

■ Pour simplifier la saisie du mot de passe, on ne prend pas en compte la différence entre la majuscule et la minuscule. Ceci est accompli en convertissant toutes les lettres entrées en minuscules à l’aide de la fonction LCase ().

■ La propriété Enabled indique si un contrôle peut recevoir le focus et répondre à des événements générés par l’utilisateur. La syntaxe de la propriété Enabled est objet.Enabled.

La syntaxe de la propriété Enabled présente les éléments suivants :

Élément Description
Object Obligatoire. Un objet valide.
Boolean Facultatif. Indique si l’objet peut réagir aux événements générés par l’utilisateur.
S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x