Is there any way to disable only "Save As" option (Save option works)?

Thanks

Put the following macro into the ThisWorkbook module of the book:

Option Explicit

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI Then
MsgBox "The 'Save As' function has been disabled." & Chr(10) & _
"Only 'Save' will work.", vbInformation, "Save As Disabled"
Cancel = True
End If
End Sub
(source (http://www.mrexcel.com/archive/Formulas/8960b.html))

Thank you !