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:

Code:

---

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)

Thank you !