|
▼ichinose さん:
レスありがとうございます!
質問がわかりづらくてすいませんでした。
具体的に言うと、
1)まず、各機能でクリティカルエラーが発生した場合に自分自身を引数にして、
共通機能のHandleCriticalErrorを呼びます。
2)HandleCriticalErrorは、エラーをダイアログで表示して、
渡されたブックを閉じます。
3)各機能のブックにあるbefore_closeイベントの中で、
showMenuを呼んでメニューを表示するのですが、
各機能のブックが閉じられると同時になぜかメニューも閉じられてしまいます
以下がコードです。
--------メニュー用のブック---------
Public Sub ShowMenu()
frmMenu.Show 0
End Sub
Public Sub HandleCriticalError(ByRef wrkErrorSource As Workbook)
MsgBox "Error!", vbCritical
wrkErrorSource.Close False
End Sub
-------各機能用のブック------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ShowMenu
End Sub
'エラー処理
On Error Goto Err
処理
Err:
call HandleCriticalError(ThisWorkBook)
これを解決するためにも
各機能のブックが閉じられた後で、メニューを表示するようにしたいのですが、
何かいい方法はありませんか?
|
|