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