Comment fermer excel sans enregistrer le classeur et sans avoir de message d'alerte ?

Deux solutions à mettre dans Thisworkbook
Pour qu'excel ne pose pas la question et ne sauvegarde pas

Private sub Workbook_BeforeClose(Cancel As Boolean)
 ActiveWorkbook.Close savechanges:=False
 end sub

Autre solution, faire croire à excel que l fichier est déjà sauvegardé:

Private sub Workbook_BeforeClose(Cancel As Boolean)
 ActiveWorkbook.Saved = True
 ActiveWorkbook.Close
 end sub