Disable Save As function in Excel workbook

[skk]

Hello,

I would like to disable only the Save As function in excel workbook. Please advise how this can be done

Thanks,

 

[Andrew Poulsom]

Look here:

http://www.mrexcel.com/archive2/71100/82411.htm

 

[skk]

Thanks it works well. I would also like to put a message

"Sorry but you cannot save this workbook"

Could you kindly paste the correct full code for me please so that I can use it immediately

Thanks again

Regards,

 

[Andrew Poulsom]

Like this?

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If SaveAsUI Then
        Cancel = True
        MsgBox "Sorry, you can only save this workbook with its original name."
    End If
End Sub

 

[andrewman]

Just for you....

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

If SaveAsUI Then
MsgBox "Sorry but you cannot save this workbook"
Cancel = True
End If

End Sub


Andrew Man

 

[skk]

thanks so much. it works perfect