close excel without saving
in the ThisWorkbook module
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
cancel = True
End Sub
After you add the code, you will have to disable macros manually, then save
the workbook.
--
Regards,
Tom Ogilvy
"Mike" wrote in message
...
I have inserted various code(s) in vbs "this workbook" using private sub
auto_close
and private sub work_book close() after other code to close excel/workbook
without saving or displaying a prompt but none seems to work.
I have used 'application.displayalerts = false'.' application.quit',
'thisworkbook.close savechanges:=false' etc etc in a variety of different
combinations.
Perhaps I am placing the code in the wrong place or perhaps I should be
saving before quitting or ..... ?
Can anyone help ?
Mike
|