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?