Control d'un enregistrement dans VBA

Bonjour :)
Je voudrai savoir quel est le code utilisé dans vba pour enregistrer un classeur dans son poste (genre le classeur doit étre protégé par un mot de passe pour pouvoir l'enregistrer, comment faire celà svp ?, je voudrai protéger mon classeur par un mot de passe (pour permettre qu'à un seul utilisateur de l'enregistrer dans son poste, les autres utilisateurs puisqu'ils ne sauront pas le mot de passe, ils pourront pas enregistrer ce dernier )
J'ai testé ce code, mais ça marche pas :(

Sub Workbook_beforeSave(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

Cordialement ;)