Excel remaining open on workbook exit

[aine_canby]

Hi,

I want my workbook to not prompt the user to save it on exit. This is
because the form is showing information from files that the user
selects and when they close the workshhet I want it to remain in the
state it was in when the opened it first.

So, I use the following code to block the "Save" request -

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.EnableEvents = False
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
Application.EnableEvents = True
End Sub

The problem is that if I press the exit botton fo rthe excel
application, the workbook closes but excel remains open. How might I
fix this?

Thanks,

Aine.

 

[Guest]

Hi,
Fixing your code maybe help:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.EnableEvents = False
Application.DisplayAlerts = False
Application.Quit 'this is the point.....
Application.DisplayAlerts = True
Application.EnableEvents = True
End Sub

 

[papou]

Hello Aine
IMHO, you can't because your code is at workbook level.
You will either have to always remember and close your workbook or use a
class module.
BTW, I would amend your code with:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Me.Saved = True
Me.Close
End Sub

HTH
Cordially
Pascal

 

[papou]

Please amend previous amendment suggestion:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Me.Saved = True
Me.Close
Application.Quit
End Sub

Cordially
Pascal