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 ! 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
|
Forums