VBAでWorkbook_BeforeSaveイベントで質問

質問

Workbook_BeforeSaveイベントである条件に達していればExcelファイルを終了したくないのですがどうすればよいでしょうか？
WindowsXP ProSP2、Excel2000
コード例）
Option Explicit
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
dim flg as boolean
if flg=true then
exit sub
end if
End Sub

回答No.1

redfox63 · ベストアンサー

ん～ BeforeSaveイベントだと セーブしないで終了って時には無効でうがいいのでしょうか？

終了させたくないのでしたら Before_Closeイベントのほうが適切かもしれませんよ

BeforeSavveイベントだと Saveする/しないぐらいしか制御できないですよ

ブックレベルの変数を用意して BeforeSaveで設定して BeforeClose側でチェックといった具合かと

# 字下げは全角スペースです
# エラーの際は置換してください
dim bCloseFlag as Boolean
Private Sub Workbook_BeforeClose(Cancel as Boolean)
　　Cancel = bCloseFlag
End Sub

Private Sub WorkBook_BeforeSave(SaveAsUI as Boolean, Cancel as Boolean)
　　' 『ある特定の条件』は適宜修正してください
　　if ある特定の条件=TRUE then
　　　　bCloseFlag = True
　　else
　　　　bbCloseFlag = False
　　end if
End Sub
といった具合です

お礼

有難うございました。ためしたところうまくいきました。