ExcelのBookを×で閉じれなくする方法

あることがキッカケでVBAを独学で勉強しました、今ではブログを通してVBAでできることを解説しつつ、VBAや他の言語の勉強、ブログ運営の勉強をしています(^^♪

どうも、takaです、今回は【ExcelのBookを×で閉じれなくする方法】についてご紹介します。

【×】というのはExcelのウィンドウ右上にありますバツのことです。

※〇が切れちゃいました(。-∀-)

ここのボタンを押してもBookが閉じないようにするにはどうすればいいのか？ご紹介していきます( ^ω^ )

閉じれなくするコードはとっても簡単で、【ThisWorkbook※上記画像の一番下】に下記のコードを記述すればOKです。

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Cancel = 1   'キャンセルする
    MsgBox "×では閉じることができません"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Cancel = 1 'キャンセルする

MsgBox "×では閉じることができません"

End Sub

このコードの使い道はなんなのか？と考える方もいるでしょう(;^ω^)

このコードの使い道は【ユーザーの操作で閉じれなくする】という事に意味があります。というのも、このコードは【右上の×の機能をキャンセルする】コードであって【Book自体を閉じれなくするコードではない】からです。

なので、【本当はシステム終了ボタンを押して終了してほしいのに【×】で閉じられてしまって思うような結果にならなかった】なんて事が無いようにする対策になるわけです(^^♪

サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。

Twitterもやってます(^^♪Excelについてはあまり触れませんがブログの更新のお知らせはツイートしています(^^♪

Twitterフォロー