Excel VBA закрывается без сбережения
ActiveWorkbook.Close savechanges:=False
VasteMonde
ActiveWorkbook.Close savechanges:=FalsePrivate Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True ' Cancels in any case
' Or :
If SaveAsUI Then Cancel = True ' Cancels only if saving is asked by user, not via code
End Sub
' Prevents Excel from requesting a save before closing
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ThisWorkbook.Saved = True
End Sub