[Excel2000]auto_closeを止めさせるには

Excel2000で、
特定のボタンを押した場合以外の閉じる処理を
キャンセルさせたいのですがうまくいきません

sub ボタン押()
flg = true
end sub

sub auto_close()
if flg <> true then
msgbox "AAA"
exit sub
end if
end sub

これでは、どーやってもそのまま終了してしまいます。
なにか良い方法はないでしょうか・・・

よろしくおねがいします。

No.1 ベストアンサー 回答者： maruru01 回答日時： 2003/02/24 14:17

こんにちは。

maruru01です。

閉じる処理をキャンセルするなら、WorkbookオブジェクトのBeforeCloseイベントに記述してはどうですか。
引数のCancelにTrueを代入することで、閉じる操作をキャンセル出来ます。
記述する場所は、VBE画面のプロジェクトエクスプローラ（ツリー上のもの）の「ThisWorkbook」モジュールをダブルクリックして開きます。
そこに以下のように記述します。


Private Sub Workbook_BeforeClose(Cancel As Boolean)

　　If Not flg Then
　　　　MsgBox "AAA"
　　　　Cancel = True
　　End If

End Sub

この回答への補足

回答ありがとうございます。

実は他にもモジュールを記述していて
それらを全部、標準モジュールにまとめています。
なので出来れば、標準モジュールに書ける方法が
いいなぁと思っているのですが、可能でしょうか・・・

補足日時：2003/02/24 16:29

No.2 回答者： aptiva 回答日時： 2003/02/24 19:29

auto_closeが動いている段階では、既に閉じる処理はキャンセルできないようです。

#1の方法しかないと思います。