Bonjour et bienvenue,
Ce que tu as dans le module 1, il suffit du mettre dans ThisWorkbook
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
For Each sh In ThisWorkbook.Sheets
sh.Protect "UOAUTEUR"
Next sh
End Sub
Sachant que avec ça, "BeforeSave" la macro va s'executer avant de sauvegarder ton fichier.
Pour avant la fermeture il y a
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Mais si tu ferme sans enregistrer il n'y aura aucune macro d'executé
A+