Verrouiller la sauvegarde par macro

Bonjour,

J'aimerais savoir si c'est possible de verrouiller la sauvegarde par un mot de passe par macro ou autre ? histoire que CTRL+S ou la disquette de sauvegarde ne puisse pas être utilisé !

Si oui

comment faire ?

A+

Vianney

J'ai trouvé une solution lol

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 Dim rep
 rep = InputBox("Saisir le Mot de Passe", "Protection en cas d'erreur !")
 If rep <> "password" Then
 Cancel = True
 Else
 Cancel = False
 End If
 End Sub