Enregistrement d'un classeur dans son poste par un mot_pass

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

Aidez moi svp !

Cordialement

Bonsoir Lalida, bonsoir le forum,

Peut-être comme ça :

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

Juste la première ligne du code qui change...

Exact, ça a marché

Merci beaucoup