Make file drop dead on close

[XP]

Using Windows 2003 and Office XP;

I have the following in ThisWorkbook:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = True
Application.EnableEvents = False
Application.DisplayAlerts = False
ThisWorkbook.Close SaveChanges:=False
Application.DisplayAlerts = True
Application.EnableEvents = True
End Sub

I know that the alerts and the events are not likely switched back on since
they come after the close; however, this file is set to open "Read Only" by
default (file attribute) and I cannot get this thing to close without a "Do
you want to save" message. I want the file to drop dead on close: i.e. no
warnings, no questions asked, no save.

How can I get this to work?
Thanks much in advance for your assistance.

 

[Mark Lincoln]

Put this in the This Workbook module:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

ThisWorkbook.Saved = True

End Sub

That should do it.

Mark Lincoln

 

[XP]

Hi Mark,

Sorry, but this doesn't work...

Now my file also runs hidden, so I don't know if that is a new wrinkle or
not. This did work for another file, that my problem file opened, but not the
main problem file that runs hidden.

Any other ideas?

 

[XP]

Hello again,

Now it seems to be working; I'm not sure why it didn't at first...maybe it
just need to burn in or something...

Anyway thanks!

If anyone else has anything to add on this issue, I welcome your comments...

 

[XP]

Hello again,

I was wrong! This method only works if the file property is set to not read
only!

Once set to open read only, it fails and still prompts me about saving...
any other ideas?

 

[Mark Lincoln]

The code works for me on a read-only file. Did you put the code in
the ThisWorkbook module in the read-only file? And did you remove the
read-only restriction before entering the code, then reset the file to
read-only?

Mark Lincoln