Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
PWD = InputBox("Enter the password:", "PRIVATE ACCESS")
def = "******"
If PWD = "password" Then _
Cancel = False _
Else Cancel = True
End Sub
le code en rouge ne fait rien je croyais que c etait ca pour mettre le password en *****
merci d avance pour la solution!