* dans le mot de passe

[lagav]

bonjour pouvez vous me dire comment faire pour que le mot de passe apparaisse sous la forme ******
et ou l'écrire dans ce code

textetitre = InputBox(Title:="Bonjour", _
Prompt:="Veuillez Saisir le code d'accès.")
If textetitre = "alexis" Then
Sheets("resultats agents").Unprotect Password:="alexis"
Else
msg = "Mot de passe incorrect."
StyleBoîteDialogue = vbOKOnly + vbQuestion
Title = "Accès réglementé."
réponse = MsgBox(msg, StyleBoîteDialogue, Title)
Exit Sub
End If

 

[Pierrot93]

Re : * dans le mot de passe

Bonjour,

en l'état, avec la fonction "inputbox", ce n'est pas possible... une solution est d'utiliser un USF en y placant un "textbox" à l'intérieur et utiliser la propriété "PasswordChar " du dit "textbox"...

Private Sub UserForm_Initialize()
TextBox1.PasswordChar = "*"
End Sub

bonne journée
@+

 

[lagav]

Re : * dans le mot de passe

je ne comprend pas
pourrais tu m'envoyer le code tout fait que je n'ai plus qu'a le coller ou qu'a modifier le nom des feuilles?
merci

 

[Pierrot93]

Re : * dans le mot de passe

Re,

déjà il faut que tu crées un "userform" dans ton classeur... dans l'éditeur vba => barre de menu => insertion => userform et avec la boite à outils, dessiner un "textbox" (zone de texte)...

 

[phlaurent55]

Re : * dans le mot de passe

Bonjour à tous,

ayant un peu de temps devant moi, je me suis lancé dans la construction d'un exemple
voir fichier joint

à+
Philippe

 

[lagav]

Re : * dans le mot de passe

merci je vais essayer