Thread: Exit Workbook
View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
Norman Jones Norman Jones is offline
external usenet poster
 
Posts: 5,302
Default Exit Workbook

Hi Mark,

Private Sub Workbook_Close()
Application.DisplayAlerts = False
Workbook.Close savechanges:=False
End Sub


Try, instead:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Me.Saved = True
End Sub


BTW, there is no Workbook_Close event.



---
Regards,
Norman



"Mark" wrote in message
...
When i exit excel using the close 'X' top right of my page - it keeps
prompting me to save changes.I dont want it to save changes and just
close.I
either want to get rid of the 'X' or use some code so it doesnt prompt me
to
save.I am currently using this code but its not working for some
reason.Any
help out there please...

Private Sub Workbook_Close()
Application.DisplayAlerts = False
Workbook.Close savechanges:=False
End Sub

Thks in adavnce
Mark