|
>上記を試したのですが、
>ブックを開き、変更後保存せず閉じる「×」を押すと、
>保存確認ダイアログが表示されます。
>この保存確認ダイアログが延々表示され、終了できなくなってしまいました。
そうですか。では、次のようではどうでしょう。
'ThisWorkbookモジュール
Option Explicit
Dim WithEvents App As Application
Private Sub WorkbookAfterSave()
'ここで保存後の処理
'
End Sub
Private Sub App_WorkbookBeforeSave(ByVal Wb As Workbook, ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Not SaveAsUI Then '上書き保存時の処理
'ここで保存前の処理
'
Application.OnTime Now, "ThisWorkbook.WorkbookAfterSave"
End If
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Set App = Nothing
End Sub
Private Sub Workbook_Open()
Set App = Application
End Sub
|
|