|
横から失礼します。
終了させたくないときは、Workbook_BeforeClose イベントの
Cancel プロパティを True にするのが簡単だと思います。
以下のコードを ThisWorkbook モジュールに貼り付けて
お試しください。
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim e_row As Long
Dim A As Integer
With Sheets("main")
e_row = .Range("b65536").End(xlUp).Row
If e_row >= 4 Then
A% = MsgBox("保存されていないデータがあります。終了しますか?", vbYesNo)
Select Case A%
Case vbYes
With Application
.EnableEvents = False
Workbooks("aaa.xls").Close False
.EnableEvents = True
End With
Case vbNo
Cancel = True
End Select
End If
End With
End Sub
|
|