Hello;

I need to disable the File option Save As while the file test.xls is open,
and return to normal File options on exit.
How to do that ??
The following w/b event DOES NOT produce the desired effect:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'MS Excel help: SaveAsUi True if the Save As dialog box will be displayed
SaveAsUI = False
End Sub

Thank you.

How about

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
If SaveAsUI Then
MsgBox ("The 'Save As' function has been disabled."), vbInformation,
"Save As Disabled"
Cancel = True
End If
End Sub



HTH,
JP

On Jan 7, 9:34*pm, monir <mo...@discussions.microsoft.com> wrote:
> Hello;
>
> I need to disable the File option Save As while the file test.xls is open,
> and return to normal File options on exit.
> How to do that ??
> The following w/b event DOES NOT produce the desired effect:
>
> Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
> 'MS Excel help: SaveAsUi True if the Save As dialog box will be displayed
> * * SaveAsUI = False
> End Sub
>
> Thank you.

Perfect! Thank you very much.


"JP" wrote:

> How about
>
> Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
> Boolean)
> If SaveAsUI Then
> MsgBox ("The 'Save As' function has been disabled."), vbInformation,
> "Save As Disabled"
> Cancel = True
> End If
> End Sub
>
>
>
> HTH,
> JP
>
> On Jan 7, 9:34 pm, monir <mo...@discussions.microsoft.com> wrote:
> > Hello;
> >
> > I need to disable the File option Save As while the file test.xls is open,
> > and return to normal File options on exit.
> > How to do that ??
> > The following w/b event DOES NOT produce the desired effect:
> >
> > Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
> > 'MS Excel help: SaveAsUi True if the Save As dialog box will be displayed
> > SaveAsUI = False
> > End Sub
> >
> > Thank you.
>
>

Glad to hear it worked!

--JP

On Jan 8, 12:04*am, monir <mo...@discussions.microsoft.com> wrote:
> Perfect! *Thank you very much.
>
>
>
> "JP" wrote:
> > How about
>
> > Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
> > Boolean)
> > If SaveAsUI Then
> > MsgBox ("The 'Save As' function has been disabled."), vbInformation,
> > "Save As Disabled"
> > Cancel = True
> > End If
> > End Sub
>
> > HTH,
> > JP
>
> > On Jan 7, 9:34 pm, monir <mo...@discussions.microsoft.com> wrote:
> > > Hello;
>
> > > I need to disable the File option Save As while the file test.xls is open,
> > > and return to normal File options on exit.
> > > How to do that ??
> > > The following w/b event DOES NOT produce the desired effect:
>
> > > Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
> > > 'MS Excel help: SaveAsUi True if the Save As dialog box will be displayed
> > > * * SaveAsUI = False
> > > End Sub
>
> > > Thank you.- Hide quoted text -
>
> - Show quoted text -