Bonjour Delors, le Forum
Il te suffit de passer par une procédure évènementielle à placer dans le Private Module de ThisWorkBook.
Vu que tu as déjà une macro qui gère la fermeture tu dois connaitre. Par contre il va falloir que tu passe par une Variable Boolean Publique (Déclarée en Top du Module)
Exemple à mettre dans le Private Module de ThisWorkBook :
Option Explicit
Dim TaBooleanPublic As Boolean
Private Sub Workbook_Open()
TaBooleanPublic = True
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
TaBooleanPublic = False
ThisWorkbook.Save
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = TaBooleanPublic
If TaBooleanPublic = True Then MsgBox "Enregistrement Interdit"
End Sub
Bon Samedi
@+Thierry