close excel without saving
Since I copied it out of a workbook, it is right. Perhaps you didn't
correct for wordwrap.
here is one adjusted so you shouldn't have a wordwrap problem
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
--
Regards,
Tom Ogilvy
"Mike" wrote in message
...
Tom,
Me again.
Have copied/pasted your code in but the second private sub is showing in
red
which indicates something is quite right.
Mike
"Tom Ogilvy" wrote:
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
|