Disabling SAVE AS Temporarily

[monir]

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.

 

[JP]

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

 

[monir]

Perfect! Thank you very much.

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

 

[JP]

Glad to hear it worked!

--JP

Perfect!  Thank you very much.






- Show quoted text -