Cacher le mot de passe VBA "*"

Bonsoir tous le monde !

SVP je veux que mon mot de passe soit masqué en étoiles via ces codes, comment faire ça svp ??

Private Sub Workbook_beforePrint(Cancel As Boolean)

Secret = "essai"
Question = InputBox("Mot de passe pour l'impression ?")

If Question <> Secret Then
  MsgBox ("Impression Interdite")
  Cancel = True
End If
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
        Cancel As Boolean)
   Secret = "essai"
Question = InputBox("Mot de passe pour l'enregistrement ?")

If Question <> Secret Then
  MsgBox ("Enregistrement Interdit")
  Cancel = True
End If
End Sub

Hello lalida123,

Tu veux que le mdp soit caché lors de sa saisie, ou caché dans le code VBA?

Pour la première possibilité, je ne sais pas si c'est possible d'afficher les étoiles, mais il est toujours à fait possible d'en faire une saisie invisible! (style linux)

Pour la deuxieme possibilité, non il sera lisible tel quel. Par contre le code VBA peut être protégé par MDP, ce qui protègera ton second MDP!

Je veux que quand mes utilisateurs impriment ou enregistrent, ils doivent saisir le mot de passe sous forme de "*"; le code marche très bien mais il s'affiche en clair

Bonjour,

Avec InputBox tu n'arriveras pas. Mais avec un TextBox tu peux mettre la propriété PasswordChar à * pour la saisie.