Rapport de message :*
 

Cacher le mot de passe VBA "*"

Titre du sujet : Cacher le mot de passe VBA "*"
par lalida123 le 03/05/2016 00:14:44

Bonsoir tous le monde ! 
SVP je veux que mon mot de passe soit masqué en étoiles via ce code, comment faire 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