I have a workbook where I disabled all menu items, and the only way to exit
is by choosing the "x" in the upper right corner. I have some code to
disable the "save as" dialog box, that I think used to work, but for some
reason, now does not. In the "This Workbook" object I have:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Workbooks("Urizen.xls").Saved = True
End Sub

I tried adding application.displayalerts=false and this did not work either.

What am I missing?

Events must be enabled for your code to work.

Run this and see if things get better ...

Sub FixThings
Application.EnableEvents = True
End Sub
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware


"Dion" <(E-Mail Removed)>
wrote in message
I have a workbook where I disabled all menu items, and the only way to exit
is by choosing the "x" in the upper right corner. I have some code to
disable the "save as" dialog box, that I think used to work, but for some
reason, now does not. In the "This Workbook" object I have:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Workbooks("Urizen.xls").Saved = True
End Sub

I tried adding application.displayalerts=false and this did not work either.
What am I missing?

You could also insert this procedure:
Sub Auto_Close()
ThisWorkbook.Save
ThisWorkbook.Close
End Sub
--
Best wishes,

Jim


"Jim Cone" wrote:

> Events must be enabled for your code to work.
>
> Run this and see if things get better ...
>
> Sub FixThings
> Application.EnableEvents = True
> End Sub
> --
> Jim Cone
> San Francisco, USA
> http://www.realezsites.com/bus/primitivesoftware
>
>
> "Dion" <(E-Mail Removed)>
> wrote in message
> I have a workbook where I disabled all menu items, and the only way to exit
> is by choosing the "x" in the upper right corner. I have some code to
> disable the "save as" dialog box, that I think used to work, but for some
> reason, now does not. In the "This Workbook" object I have:
>
> Private Sub Workbook_BeforeClose(Cancel As Boolean)
> Workbooks("Urizen.xls").Saved = True
> End Sub
>
> I tried adding application.displayalerts=false and this did not work either.
> What am I missing?
>
>