avoid save file

**eugz** · 04-30-2009, 10:46 AM

Hi All.
I would like to avoid user to SAVE or SAVE AS file. In my macro I used code to disable SAVE and SAVE AS from FILE menu. But how to avoid to save file if user use CTRL+S command to save file?
Thanks.

**sweep** · 04-30-2009, 10:49 AM

In "ThisWorksheet" use the following code

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
End Sub

**shg** · 04-30-2009, 11:06 AM

You might add

Me.Saved = True

to that so the user doesn't keep getting prompted to save on exit.

And as a courtesy, also add something to tell the user what's going on:

MsgBox "No saving allowed!"

**eugz** · 04-30-2009, 11:37 AM

Thanks Dave. It is works. But I'm thinking user will confused when will try close file and get message: "Do you want to save the changes you made "filename.xls"?" User try to click YES button and message will on screen. How to avoid save file and avoid pop up message also?
Thanks.

**sweep** · 04-30-2009, 11:47 AM

You'll need to incorperate

Application.DisplayAlerts = False

into your code to avoid the warning when closing.

**eugz** · 04-30-2009, 12:04 PM

I insert this code to ThisWorkbook

Private Sub Workbook_Close()
    Application.DisplayAlerts = False
End Sub

But message still pop up. What I did wrong?
Thanks.

**shg** · 04-30-2009, 12:09 PM

There is no Close event

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

**eugz** · 04-30-2009, 12:20 PM

Thanks a lot everyone. It is exactly what I want to do.

avoid save file

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

avoid save file

Re: avoid save file

Re: avoid save file

Re: avoid save file

Re: avoid save file

Re: avoid save file

Re: avoid save file

Re: avoid save file

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions