VBAProject --> Microsoft Excel Objects --> ThisWorkbook
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI = True Then
MsgBox "「名前を付けて保存」をキャンセルします"
Cancel = True
End If
End Sub
Microsoft Office ブログランキングへ