苦労してExcel-VBAを組み込んだエクセルファイルを他人に渡して使ってもらうと、エラー表示になったと言われたことありませんか?
原因は簡単で、エクセル操作をオリジナル入力画面のユーザーフォームを使用して、全ての操作を行うようにしていますが、誤ってフォーム右上にある✖印をクリックしてユーザーフォームを閉じてしまったので、操作不能になってしまったことが原因です。
解決方法は簡単で、✖ボタン停止してユーザーフォームを閉じられないようにする方法をご紹介します。
QueryCloseイベントで✖ボタン停止する
エクセルのユーザーフォームにはフォーム右上に✖印があり、クリックすることでフォームを閉じられるようになっています。
このフォームの✖印を誤ってクリックしてフォームを閉じられてしまうと、ワークシート上には何もないので次の操作ができなくなってしまいます。
そこで誤って✖印をクリックしたら、メッセージを発して閉じられないようにします。
まず始めにユーザーフォーム自体をクリックすると、VBAコードを記載する場所に移動できます。
次に、このPrivate Sub UserForm_Click()~End Subをすべて消して、下記コードに差し替えます。
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
MsgBox “【CLOSE】ボタンを使用してください”
Cancel = True
End If
End Sub
- ユーザーフォームが閉じられる直前に実行する
- もしCloseModeがvbFormControlMenu だったら
- メッセージ「【Close】ボタンを使用してください」と表示する
- ユーザーフォームを閉じる処理をキャンセルする
- Ifステートメント終了
- マクロ終了
このようにVBAコードを記載すると、下記のような表示が出るようになり、下の図のように誤ってユーザーフォームを閉じられると、メインMenuユーザーフォームに行けなくなってしまう事を防いでいます。
このように全てのユーザーフォームにコピペしているので、意図しない操作によるフォーム閉じられることが無くなりました。
エクセルファイルを様々な人と共有することあると思いますので、意図しない操作って意外と多いので、対策は必要ですよ!
また、✖印使用停止の他にリボンツールバー非表示やシート名非表示も合わせて使うと、安心できますよ。
関連記事
-
ユーザーフォーム
ユーザーフォームのテキストボックスが空欄の時にVBAメッセージを出す方法
オリジナルの入力フォームを作って使用していると、入力を忘れている項目があるのにコマンドボタンを押してしまい、空欄のリストが出来上がって困ったことありませんか… -
ユーザーフォーム
ユーザーフォームの✖ボタンでフォーム自体閉じられないようにする
苦労してExcel-VBAを組み込んだエクセルファイルを他人に渡して使ってもらうと、エラー表示になったと言われたことありませんか? 原因は簡単で、エクセル操作をオリジ… -
ユーザーフォーム
ユーザーフォームのタブやエンターでカーソル移動する順番変更方法
ユーザーフォームを使っていてテキストボックスに入力してtabやenterを押したら、入力したい順にカーソルが移動しなくて困ったことありませんか? タブオーダーという機… -
ユーザーフォーム
Excel-VBAタイマー機能で数秒後にユーザーフォームを表示させる方法
エクセルを使って成績などを入力して作成した成績表で、入力漏れがなかったかどうかなどをチェックするのに数秒間だけ指定したページや範囲を表示させたいと思ったこと… -
ユーザーフォーム
ユーザーフォームを閉じて別のユーザーフォームを開く方法
エクセルVBAでオリジナル入力フォームが作れるユーザーフォームを複数使い分けている時に、表示できなくなったり同時に複数表示してしまい困ったことありませんか? 上… -
ユーザーフォーム
エクセルVBAのユーザーフォーム表示位置を任意の場所に変更する方法
オリジナルの入力フォームを作ったのに、シート上の文字やセルの上に表示されているので位置を変えたいと思ったことありませんか? 初期設定の画面中央から好きな位置に… -
ユーザーフォーム
使っていない人が意外と多いエクセル標準機能でオリジナル入力画面を作る
エクセルで様々な数値などのデータ入力を行う時に、オリジナルの入力画面でエクセルを操作できるってご存知でしたか? この入力画面をユーザーフォームといい、ユーザー… -
ユーザーフォーム
エクセルファイルを開くと自動的にユーザーフォームを表示する方法
オリジナルの入力フォームを表示させる方法に悩んだことありませんか? エクセルファイルを開いたら自動的にユーザーフォームが開くようになったら手間もなく便利なので…
紅葉スポット
-
お得なきっぷで電車とバスで行ける関東の紅葉人気スポット
関東長野県群馬県栃木県千葉県埼玉県茨城県静岡県 【関東エリアの人気紅葉スポット】 関東地方で紅葉名所といえばなんといっても日光ですが、紅葉シーズンになると平日… -
「乙女の湖」鎌北湖畔の湖面反射が美しい紅葉絶景へ東毛呂駅からバス
【紅葉見頃】 飯能市の北にある入間郡毛呂山町の山中にある鎌北湖は、毛呂山町ホームページによると昭和10年に完成した農業用貯水池として作られた人工湖で、周囲2㎞… -
フリーパスで10月の茨城紅葉スポットへ
【茨城県内の人気紅葉スポット】 関東地方で紅葉名所といえばなんといっても日光ですが、紅葉シーズンになると平日でもいろは坂は大渋滞なのに休日ともなると日光駅周辺… -
日光自然博物館へバスで日光駅から紅葉景色へ滞在時間50分
【紅葉見頃】10月中旬~11月下旬 中禅寺湖から竜頭の滝や戦場ヶ原方面と反対方向に行くと、中禅寺湖を一望できる半月山展望台と中禅寺湖展望台があり、その途中の中禅… -
紅葉の寸又峡コバルトブルーの夢の吊橋へ滞在時間2時間
サンドウィッチマンとゲストがバスで旅するバスサンドの放送を見て、ビックリするほど綺麗なコバルトブルーの湖にかかる吊り橋がとても気になったので、夏に青春18きっ… -
成田山公園の紅葉へ新勝寺隣接の日本庭園を楽めて駅から徒歩圏内
成田と言えば成田空港と成田山新勝寺が有名で、旅行や初詣で訪れたことがあると思いますが、紅葉スポットになっていることは、地元の方以外はあまり知られていませんね…