VBAProject --> Microsoft Excel Objects --> ThisWorkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    'ワークブックの変更がなかったことにする(既に保存済みにする)
    ActiveWorkbook.Saved = True
    ActiveWorkbook.Close

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    'または変更を保存せずに閉じる
    ActiveWorkbook.Close Savechanges:=False

End Sub

 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ