Workbook_BeforeClose イベントで

質問

Win2000Pro SP-4、Office2000 SP-3使用しています。
ExcelVBAのブックを閉じる時のイベントで、オートフィルタの解除と再設定を行い、上書き保存するコードを記述いたしました。
しかし実行後ファイルを開いてみるとオートフィルタの解除だけされており、再設定がされておりませんでした。
上書き保存のコードを省くと再設定されていました。
標準モジュールに同じコードを記述して実行した場合も同様の結果になりました。
解決法がおわかりの方がいらっしゃいましたらお教えくださいませ。

以下のコードをThisWorkbook内に記述しました。

Private Sub Workbook_BeforeClose(Cancel As Boolean)

　Application.ScreenUpdating = False
　　　Worksheets(1).AutoFilterMode = False
　　　Range("10:10").AutoFilter
　　　Range("B11").Select
　　　ActiveWorkbook.Close SaveChanges:=True
　Application.ScreenUpdating = True

End Sub
よろしくお願いいたします。

回答No.1

hotosys · ベストアンサー

Workbook_BeforeClose内でActiveWorkbook.Close するとその時点でWorkbook_BeforeCloseに飛びます。
適当にブレークポイントで止めてステップ実行するとわかります。
と言う訳で、
ActiveWorkbook.Close SaveChanges:=True
をやめて
ActiveWorkbook.Save
にする。
ただし同名の警告が出るので
Application.DisplayAlerts = False
ActiveWorkbook.Save
Application.DisplayAlerts = True
にする。

お礼

お礼が遅くなり申し訳ございません。
体調を崩し、臥せっておりました。
ご指摘の通りステップ実行した際にWorkbook_BeforeCloseに飛んでおりまして疑問に思っておりましたが、解決法がわからずにおりました。
おかげさまで無事希望通りの動きができました。
また解決できないことが出てきましたらよろしくお願いいたします。
ありがとうございました。