při kliknutí na tist nebo uložit se to samo zavře beze změn.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveWorkbook.Close savechanges:=False 'true ???
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveWorkbook.Close savechanges:=False 'true ???
End Subcitovat