Private Sub Workbook_BeforeClose(Cancel As Boolean)
' Tromper Excel en indiquant que le classeur est déjà enregistré
ThisWorkbook.Saved = True
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
' Annuler toute tentative de sauvegarde
Cancel = True
End Sub