なんで?!?!"DisplayAlerts"が効かない汗

実は、ExcelVBAを勉強し始めて、まだ2年。

・・・なんですが最近になって、やっと、謎が解けたことがります。






Excelブックを上書き保存しないで閉じる時って、

こういう警告が出ますよね?

そう、親切に





でも、上書き保存しないでブックを閉じるのは承知の上だから

そんな警告を表示させないための

一般的に知られていますよね。





そうそう

実務では、よくオブジェクト変数を使うので、

ベタですがこんな感じにしてみたとします。

変数「wb」はWorkbookのことで、

変数「ws」はWorksheetと設定してます。


書いてありませんが、End Subの前で

Set wb = Nothing

Set ws = Nothing

が入りますが、今回は省略させていただきます。






何度も言いますが、Excel(2016)でこれを使うと、

"DisplayDisplayAlerts"が全く効いてなく、

マクロ実行中にフツーに

って出てきたんです。


マクロを実行する前に

いつも「デバック>Projectのコンパイル」で確認してますが

その時点ではエラーがなかったのです。





でも、自宅で使うExcel(2019)で同じことを試したら

こんなコンパイルエラーが出た。

う~ん?

どゆこと??




よく分かんけど

なんだろうねって思って色々調べたら





"DisplayDisplayAlerts"について紹介されているサイトを久々に

訪れたらこういう文言がたくさん書かれてたんですよね。











・・・あっ!?





そうだったんです

正しくはコチラ

"Close"の前に置く変数は

Workbookの"wb"が正解でした・・・



こちらのマクロであれば確認メッセージは出ずに

すんなり閉じました・・・トホホ







以上、

めでたしめでたし、でした。





御礼:

ここまで読んでくださりありがとうございます!!

誤字・脱字・その他諸々のミスに対するクレームは割愛ください(>_<)

どんどんTopicsを増やしていきたいと思いますので

今後ともよろしくお願いします!