Vidi pomaže li ovo (naravno snimi wbk prije zatvaranja)
Citat:
This example closes Book1.xls and discards any changes that have been made to it.
Workbooks("BOOK1.XLS").Close SaveChanges:=True
This example closes all open workbooks. If there are changes in any open workbook, Microsoft Excel displays the appropriate prompts and dialog boxes for saving changes.
Workbooks.Close
Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Quit
ActiveWorkbook.Close True
End Sub
ili
Code:
Sub SaveAndClose()
ThisWorkbook.Save
Application.Quit
End Sub