Bonsoir Chris, Bonsoir le forum,
Voici un code à placer dans ThisWorkbook (Microsoft Excel Objetcs) :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
For Each feuille In Sheets
feuille.Protect
Next
ActiveWorkbook.Save
End Sub
Méfie-toi de la ligne “ActiveWorkbook.Save” car elle a l’avantage de ne pas faire apparaître le message te demandant de sauver les modifications (la protection des feuilles), mais elle a l’inconvénient de sauver ce classeur sans te demander ton avis… Tu peux la supprimer selon tes besoins.
À plus,
Robert