XL 2016 Macro

Zenitude

XLDnaute Nouveau
Bonjour à tous,

J'ai mis en place cette macro en suivant un tutoriel sur Youtube. Comme je suis nouveau, je ne sais pas si je dois mettre le lien ? Elle fonctionne très bien mais j'aurais souhaité rajouter que la fenêtre se ferme si le USER et le mot de passe sont corrects et que lors de la saisie du mot de passe il y ait des ***** pour la discrétion. Une personne peut-elle m'aider ?

La voici :

Private Sub CommandButton1_Click()
Dim Feuil As Worksheet
Dim MDP
On Error Resume Next
If Me.TextBox1.Value = "" Then
MsgBox "Veuillez saisir votre Login...!", vbOKOnly + vbExclamation, "Erreur...!"
Exit Sub
End If

If Me.TextBox2.Value = "" Then
MsgBox "Veuillez saisir votre Mot de passe...!", vbOKOnly + vbExclamation, "Erreur...!"
Exit Sub
End If

MDP = Application.WorksheetFunction.Index(Range("motdepasse"), Application.WorksheetFunction.Match(Me.TextBox1.Value, Range("utilisateur"), 0), 1)

'MsgBox MDP

If Me.TextBox2.Value <> MDP Then

MsgBox "votre mot de passe est incorrect...!", vbOKOnly + vbCritical, "Erreur...!"

Else

For Each Feuil In Sheets
If Feuil.Name <> "Connexion" Then

If Application.WorksheetFunction.Index(Range("plage"), Application.WorksheetFunction.Match(Me.TextBox1.Value, Range("utilisateur"), 0), Application.WorksheetFunction.Match(Feuil.Name, Range("entete"), 0)) = "Oui" Then

Feuil.Visible = xlSheetVisible

Else

Feuil.Visible = xlSheetVeryHidden


End If
End If

Next

End If


End Sub
 
Solution
Bonjour Zenitude,
C'est prévu dans les propriétés :
Dans votre userform, vous sélectionnez un Textbox.
Dans ses propriétés vous modifiez le paramètre Passwordchar avec un "*":
1635945414096.png

Zenitude

XLDnaute Nouveau
Bonjour Zenitude,
C'est prévu dans les propriétés :
Dans votre userform, vous sélectionnez un Textbox.
Dans ses propriétés vous modifiez le paramètre Passwordchar avec un "*":
Regarde la pièce jointe 1120314
Merci beaucoup :)
Bonjour Zenitude,
C'est prévu dans les propriétés :
Dans votre userform, vous sélectionnez un Textbox.
Dans ses propriétés vous modifiez le paramètre Passwordchar avec un "*":
Regarde la pièce jointe 1120314
Merci beaucoup. :)
 

Statistiques des forums

Discussions
311 720
Messages
2 081 896
Membres
101 833
dernier inscrit
sandra25