Hi.

I am looking for a way to either disable or delay a user from saving a
workbook.
I have a lot of people using the workbook and people keep saving it
with a similar name confusing other users as to which is the real
application.

So, I would like to create a message that says the following when they
attempt to choose 'save' or 'save as' from the file menu.

IT IS HIGHLY RECOMMENDED THAT YOU DO NOT SAVE THIS WORKBOOK. IF YOU
HAVE A PROBLEM OR WOULD LIKE TO SAVE YOUR WORK: (1)SELECT THE TAB OF
YOUR WORKSHEET (2) CHOOSE MOVE OR COPY (3) CREATE A COPY (4) UNDER 'TO
BOOK' CHOOSE NEW BOOK. ....THANKYOU.

You probably want something close to this...(place this in the Thisworkbook
module by right clicking the Excel Icon next to file in the Excel menu and
select view code)

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If MsgBox("Are you sure you want to save?", _
vbYesNo + vbQuestion, _
"Save?") = vbNo Then Cancel = True
End Sub

If you select yes then it saves. If you select no then it does not save.
--
HTH...

Jim Thomlinson


"J.W. Aldridge" wrote:

> Hi.
>
> I am looking for a way to either disable or delay a user from saving a
> workbook.
> I have a lot of people using the workbook and people keep saving it
> with a similar name confusing other users as to which is the real
> application.
>
> So, I would like to create a message that says the following when they
> attempt to choose 'save' or 'save as' from the file menu.
>
> IT IS HIGHLY RECOMMENDED THAT YOU DO NOT SAVE THIS WORKBOOK. IF YOU
> HAVE A PROBLEM OR WOULD LIKE TO SAVE YOUR WORK: (1)SELECT THE TAB OF
> YOUR WORKSHEET (2) CHOOSE MOVE OR COPY (3) CREATE A COPY (4) UNDER 'TO
> BOOK' CHOOSE NEW BOOK. ....THANKYOU.
>
>

As well as Jim's advice, you may want to incorporate you own warning into a
routine to make it more easy for the user.
Maybe using .SaveCopyAs .
Also, using a template would mean that the original is never open in the
first place, only a copy. If that is an option.

NickHK

"J.W. Aldridge" <(E-Mail Removed)>
???????:(E-Mail Removed)...
> Hi.
>
> I am looking for a way to either disable or delay a user from saving a
> workbook.
> I have a lot of people using the workbook and people keep saving it
> with a similar name confusing other users as to which is the real
> application.
>
> So, I would like to create a message that says the following when they
> attempt to choose 'save' or 'save as' from the file menu.
>
> IT IS HIGHLY RECOMMENDED THAT YOU DO NOT SAVE THIS WORKBOOK. IF YOU
> HAVE A PROBLEM OR WOULD LIKE TO SAVE YOUR WORK: (1)SELECT THE TAB OF
> YOUR WORKSHEET (2) CHOOSE MOVE OR COPY (3) CREATE A COPY (4) UNDER 'TO
> BOOK' CHOOSE NEW BOOK. ....THANKYOU.
>