Hi,

I am looking for some help with a macro, I need to disable anyone from
saving a file or save as and also disable the prompt if the close button is
pressed you get an option to save the file then, I need to disable all of
these, also have a pop up box to warn that save as been disables when a user
tries to save the file fro save and save as.

Can anyone help mw with this.

Regards

Mark

If you disable save on SaveAs, Save and Close, how is the user to save the
file, with magic? Help me here.

Barb Reinhardt



"terilad" wrote:

> Hi,
>
> I am looking for some help with a macro, I need to disable anyone from
> saving a file or save as and also disable the prompt if the close button is
> pressed you get an option to save the file then, I need to disable all of
> these, also have a pop up box to warn that save as been disables when a user
> tries to save the file fro save and save as.
>
> Can anyone help mw with this.
>
> Regards
>
> Mark

I do not want the user to save the file as it is a protected document and for
redistribution.

Mark

"Barb Reinhardt" wrote:

> If you disable save on SaveAs, Save and Close, how is the user to save the
> file, with magic? Help me here.
>
> Barb Reinhardt
>
>
>
> "terilad" wrote:
>
> > Hi,
> >
> > I am looking for some help with a macro, I need to disable anyone from
> > saving a file or save as and also disable the prompt if the close button is
> > pressed you get an option to save the file then, I need to disable all of
> > these, also have a pop up box to warn that save as been disables when a user
> > tries to save the file fro save and save as.
> >
> > Can anyone help mw with this.
> >
> > Regards
> >
> > Mark

There's really no good way to stop the user from saving the file. If the user
disables macros, then no macro will stop them from saving.

And they could even use windows explorer to copy the file to a new location.

But if the user allows macros to run, you can tie into some workbook events.

This kind of code would go into the ThisWorkbook module:

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Me.Saved = True 'a white lie!
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
MsgBox "You can't save this file!"
End Sub
Private Sub Workbook_Open()
MsgBox "You can't save this file!"
End Sub

=======
If you don't want them to overwrite your original file, then you may want to ask
your IT folks to create a common network share that only you (and a few trusted
co-workers) have read/write access to.

Everyone else would have read-only access.

=======

And after you make changes, you'll want to save them.

So open the VBE
hit ctrl-g to see the immediate window
type:
application.enableevents = false
and hit enter.

Then back to excel to save your workbook with your changes.

Then back to the VBE's immediate window and type:
application.enableevents = true
and hit enter

Be aware that this procedure can be done by anyone -- not just you.



terilad wrote:
>
> Hi,
>
> I am looking for some help with a macro, I need to disable anyone from
> saving a file or save as and also disable the prompt if the close button is
> pressed you get an option to save the file then, I need to disable all of
> these, also have a pop up box to warn that save as been disables when a user
> tries to save the file fro save and save as.
>
> Can anyone help mw with this.
>
> Regards
>
> Mark

--

Dave Peterson

Hi Dave,

Thanks for your reply, this is a word document, how will i edit this code
for word and where to input the code?

Regards

Mark

"Dave Peterson" wrote:

> There's really no good way to stop the user from saving the file. If the user
> disables macros, then no macro will stop them from saving.
>
> And they could even use windows explorer to copy the file to a new location.
>
> But if the user allows macros to run, you can tie into some workbook events.
>
> This kind of code would go into the ThisWorkbook module:
>
> Option Explicit
> Private Sub Workbook_BeforeClose(Cancel As Boolean)
> Me.Saved = True 'a white lie!
> End Sub
> Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
> Cancel = True
> MsgBox "You can't save this file!"
> End Sub
> Private Sub Workbook_Open()
> MsgBox "You can't save this file!"
> End Sub
>
> =======
> If you don't want them to overwrite your original file, then you may want to ask
> your IT folks to create a common network share that only you (and a few trusted
> co-workers) have read/write access to.
>
> Everyone else would have read-only access.
>
> =======
>
> And after you make changes, you'll want to save them.
>
> So open the VBE
> hit ctrl-g to see the immediate window
> type:
> application.enableevents = false
> and hit enter.
>
> Then back to excel to save your workbook with your changes.
>
> Then back to the VBE's immediate window and type:
> application.enableevents = true
> and hit enter
>
> Be aware that this procedure can be done by anyone -- not just you.
>
>
>
> terilad wrote:
> >
> > Hi,
> >
> > I am looking for some help with a macro, I need to disable anyone from
> > saving a file or save as and also disable the prompt if the close button is
> > pressed you get an option to save the file then, I need to disable all of
> > these, also have a pop up box to warn that save as been disables when a user
> > tries to save the file fro save and save as.
> >
> > Can anyone help mw with this.
> >
> > Regards
> >
> > Mark
>
> --
>
> Dave Peterson
> .
>

I don't know.

You should ask in one of the forums dedicated to MSWord.

Remember to tell them what version of MSWord you're using.



terilad wrote:
>
> Hi Dave,
>
> Thanks for your reply, this is a word document, how will i edit this code
> for word and where to input the code?
>
> Regards
>
> Mark
>
> "Dave Peterson" wrote:
>
> > There's really no good way to stop the user from saving the file. If the user
> > disables macros, then no macro will stop them from saving.
> >
> > And they could even use windows explorer to copy the file to a new location.
> >
> > But if the user allows macros to run, you can tie into some workbook events.
> >
> > This kind of code would go into the ThisWorkbook module:
> >
> > Option Explicit
> > Private Sub Workbook_BeforeClose(Cancel As Boolean)
> > Me.Saved = True 'a white lie!
> > End Sub
> > Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
> > Cancel = True
> > MsgBox "You can't save this file!"
> > End Sub
> > Private Sub Workbook_Open()
> > MsgBox "You can't save this file!"
> > End Sub
> >
> > =======
> > If you don't want them to overwrite your original file, then you may want to ask
> > your IT folks to create a common network share that only you (and a few trusted
> > co-workers) have read/write access to.
> >
> > Everyone else would have read-only access.
> >
> > =======
> >
> > And after you make changes, you'll want to save them.
> >
> > So open the VBE
> > hit ctrl-g to see the immediate window
> > type:
> > application.enableevents = false
> > and hit enter.
> >
> > Then back to excel to save your workbook with your changes.
> >
> > Then back to the VBE's immediate window and type:
> > application.enableevents = true
> > and hit enter
> >
> > Be aware that this procedure can be done by anyone -- not just you.
> >
> >
> >
> > terilad wrote:
> > >
> > > Hi,
> > >
> > > I am looking for some help with a macro, I need to disable anyone from
> > > saving a file or save as and also disable the prompt if the close button is
> > > pressed you get an option to save the file then, I need to disable all of
> > > these, also have a pop up box to warn that save as been disables when a user
> > > tries to save the file fro save and save as.
> > >
> > > Can anyone help mw with this.
> > >
> > > Regards
> > >
> > > Mark
> >
> > --
> >
> > Dave Peterson
> > .
> >

--

Dave Peterson