VBAProject --> Microsoft Excel Objects --> ThisWorkbook

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If SaveAsUI = True Then
        MsgBox "「名前を付けて保存」をキャンセルします"
        Cancel = True
    End If
End Sub

 

Microsoft Office ブログランキングへ