XL 2016 Macro

[Zenitude]

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

 

[sylvanu]

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 "*":

 

[Zenitude]

Merci beaucoup, mais du coup comment fermer la boîte de dialogue ?

 

[Zenitude]

C'est tout bon j'ai trouvé la solution pour mon autre question.

 

[Zenitude]

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.

 

[patricktoulon]

Bonjour
perso je me sert des custom property d'une feuille pour stoker les identifiants et mot de passe
c'est déjà plus compliqué pour le benet qui chercherait a filouter
et puis rien n'est visible comme ça et ça consomme pas une feuille pour ça