ユーザーフォームの✖ボタンでフォーム自体閉じられないようにする

苦労してExcel-VBAを組み込んだエクセルファイルを他人に渡して使ってもらうと、エラー表示になったと言われたことありませんか？

原因は簡単で、エクセル操作をオリジナル入力画面のユーザーフォームを使用して、全ての操作を行うようにしていますが、誤ってフォーム右上にある✖印をクリックしてユーザーフォームを閉じてしまったので、操作不能になってしまったことが原因です。

解決方法は簡単で、✖ボタン停止してユーザーフォームを閉じられないようにする方法をご紹介します。

QueryCloseイベントで✖ボタン停止する

エクセルのユーザーフォームにはフォーム右上に✖印があり、クリックすることでフォームを閉じられるようになっています。

このフォームの✖印を誤ってクリックしてフォームを閉じられてしまうと、ワークシート上には何もないので次の操作ができなくなってしまいます。

そこで誤って✖印をクリックしたら、メッセージを発して閉じられないようにします。

まず始めにユーザーフォーム自体をクリックすると、VBAコードを記載する場所に移動できます。

次に、このPrivate Sub UserForm_Click()～End Subをすべて消して、下記コードに差し替えます。

このようにVBAコードを記載すると、下記のような表示が出るようになり、下の図のように誤ってユーザーフォームを閉じられると、メインMenuユーザーフォームに行けなくなってしまう事を防いでいます。

エクセルファイルを様々な人と共有することあると思いますので、意図しない操作って意外と多いので、対策は必要ですよ！

また、✖印使用停止の他にリボンツールバー非表示やシート名非表示も合わせて使うと、安心できますよ。