1. Créez un nouveau projet que vous nommez Ex_21xx.vbp. Nommez la feuille (NAME) F_MotPasse et inscrivez Demande d'un mot de passe comme texte pour la propriété CAPTION. Réglez sa largeur (WIDTH) à 4590 et sa hauteur (HEIGHT) à 2040.
2. Ajoutez ensuite une zone de texte et un bouton à la feuille comme dans le modèle plus bas dans cette page. Nommez la zone de texte ZT_Passe et laissez la propriété TEXT vide. Nommez le bouton BO_Ok et inscrivez OK dessus (CAPTION).

3. Sélectionnez ZT_Passe et trouvez la propriété PASSWORDCHAR qui permet de déterminer le caractères qui remplacera les lettres entrées par l'utilisateur. Le caractère choisi est l'astérisque (*).

4. Il ne vous reste plus qu'à ajouter quelques lignes de code et le tour est joué. Le premier code est utilisé dans l'événement FORM_LOAD. Le voici.

Private Sub Form_Load()
   ZT_Passe.Text = ""   'S'assurer que la zone de texte est vide lors de l'ouverture
End Sub

5. Il faut en outre ajouter le code qui permettra de vérifier si le mot de passe entré par l'utilisateur est le bon. Cette section de code est placée dans le script du bouton.

Private Sub BO_Ok_Click()
   If ZT_Passe.Text <> "esls" Then  'Si le mot entré est différent de celui recherché
      MsgBox "Mot de passe incorrect", vbCritical    'Affichage fenêtre d'erreur
   Else
      MsgBox "Mot de passe correct"   'Affichage bon mot de passe
   End If
End Sub

6. Enregistrez votre programme et testez-le. Notez qu'au lieu d'afficher une fenêtre indiquant que le mot de passe est correct, vous auriez pu faire afficher une nouvelle feuille ou lancer un programme.

Application:

• Ouvrez le programme Ex_20bxx.vbp précédemment créé et exigez que l'utilisateur entre le mot de passe Visual6 avant d'accéder au programme. Sauvegardez cette nouvelle version sous le nom Ex_21bxx.vbp.