Protection toutes les feuilles + sauvegarde avant fermeture

Bonjour

Je souhaiterais protéger l'ensemble des feuilles de mon fichier avec une sauvegarde automatique à la fermeture de mon fichier.

Puis avoir la possibilité de les déprotéger suivant mes besoins en cours d'utilisation.

Par avance merci pour votre aide

cordialement

mibri

Bonjour

Code à placer dans le module ThisWorkbook

Protection sans mot de passe

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  For Each sh In Sheets
    sh.Protect
  Next sh
  ThisWorkbook.Save
End Sub

Bonjour,

merci beaucoup pour ta réponse, ça correspond à ce que je recherchais, est ce que ce code va fonctionner également sous Excel version 2010

cordialement

mibri