crypter un mot de passeRésolu

Question

bonjour,
je cherche comment faire pour que la saisie d'un label soit automatiquement en majuscule m&#234;me si on tape en minuscule.
et comment on peu mettre des ******  &#224; la plce des lettres ou chiffres
cars pour l'instant les mot de passe sont en clair 

exp;
Private Sub CommandButton1_Click()
Static compteur As Byte
compteur = compteur + 1
If ComboBox1.ListIndex >= 0 Then
     If Sheets(3).Range("B1").Offset(ComboBox1.ListIndex, 0) = txtMotdePasse Then
    MsgBox "Mot de passe correct ", vbInformation, "Mot de passe "
            If txtNouveauMotDePasse = "" Then
    txtNouveauMotDePasse = txtMotdePasse
Else
        Sheets(3).Range("B1").Offset(ComboBox1.ListIndex, 0) = txtNouveauMotDePasse
    End If
    MsgBox " Nouveau Mot de passe OK ", vbInformation, "Mot de passe "
        Unload Me


     Else
     If compteur = 3 Then
MsgBox "Echec dans la saisie du mot de passe. " & _
vbCr & "La commande ne peut-&#234;tre ex&#233;cut&#233;e", _
vbOKOnly + vbExclamation, "Mot de passe incorrect"
Application.DisplayAlerts = False
ActiveWorkbook.Close
End If
MsgBox "Le mot de passe fourni n'est pas correct. ", _
vbOKOnly + vbExclamation, "Mot de passe incorrect"
txtMotdePasse.Text = ""
txtMotdePasse.SetFocus
Me.Caption = "Entrez le mot de passe. Tentative " & _
compteur + 1 & " sur 3"
End If
End If


End Sub

Merci de votre aide
PS ; les logins sont dans la Feuil3

TThierry133

jpleroisse · Accepted Answer

Bonsoir,

1 &#232;re r&#233;ponse



Private Sub CommandButton2_Click()

Label1.Caption = UCase("bonjour")

End Sub



2 &#232;me r&#233;ponse



Dans la page propri&#233;t&#233; de txtMotDePasse, tu mets une * dans la propri&#233;t&#233; PassWordChar.



jpleroisse



Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

cs_TTHIERRY · Answer

bonjour jpleroisse

merci encore,

TThierry133

Crypter un mot de passe

2 réponses

Discussions similaires