調べたいExcel-VBAの使用例などキーワードを入力してください

エクセルを開くと自動的にメニューバー(リボンツールバー)を非表示にする方法

ウィンドウの操作画面の操作
ウィンドウの操作

せっかく作って渡したエクセルのメニューを触れらて変になった経験ありませんか

印刷を考えて様々な設定をしたのに勝手にイジられてはみ出たり・・・。

意図しない印刷設定の変更や保護の解除をされてしまうことも。

<span class="fz-12px">とりっぷぼうる</span>
とりっぷぼうる

そこでエクセルを開くと自動的にメニューバー(リボン)を隠してしまえば、こんな問題が解決できますよね。

スポンサーリンク

メニューバーを隠して意図しないユーザー操作を防止

エクセルの画面の上に並んでいる、印刷や文字設定をしたりできる様々なメニューがありますが、これをリボンツールバーというのです。

これを非表示にしてしまえば、だれも触れなくなるので、問題が解決できますよ!

メニューバー(リボン)表示
メニューバー(リボン)表示

これが一般的なエクセルのリボンツールバーが表示されている画面ですね。

これをエクセルファイルを開いたら自動的に消してしまうと、このような画面になります

メニューバー(リボン)非表示
メニューバー(リボン)非表示

実はリボンツールバーを非表示にすると、シートのスペースが当たりませですが広くなりましたね。

ではこのようにリボンツールバーを消すVBAコードを書いていきましょう。

SHOW.TOOLBAR

メニューバー(リボン)を隠してしまう方法は、SHOW.TOOLBARを使います。

そしてエクセルを開いたときに自動的に処理を行う方法はThisWorkBookに記述します。

リボンツールバー非表示するVBAコード

Private Sub Workbook_open()
Application.ExecuteExcel4Macro “SHOW.TOOLBAR(“”Ribbon””, False)”
End Sub

これで、エクセルを開いてマクロを有効化すると、メニューバー(リボン)を隠して表示してくれます。

念の為に、ワークシート上かユーザーフォームにメニューバー(リボン)を再表示する為のコードを記述したコマンドボタンを準備しておく事も必要ですね。

再表示する為にコマンドボタンに記載

Private Sub CommandButton1_Click()
Application.ExecuteExcel4Macro “SHOW.TOOLBAR(“”Ribbon””, True)”
End Sub

たった1行なので難しくないですし、非表示のFalseを表示のTrueに変更するだけで完成するのとても簡単です。

この方法でも問題ないのですが、コマンドボタンを2つ用意しなくてはいけないのですが、ちょっと工夫すると1つのコマンドボタンで非表示も再表示もできるんですよ!

クリックするたびに数式バーの表示/非表示を切り替え

なんでもかんでもできるわけではないのですが、この種の表示・非表示の切り替えには、FalseやTrueの代わりにNot演算子を使用するとできるようになるのですが、リボンツールバーにはこの方法が使えませんでしたので、IFステートメントで解決します。

リボンツールバーの表示・非表示の切り替え

Private Sub CommandButton1_Click()
If Application.CommandBars(“Ribbon”).Visible = True Then
Application.ExecuteExcel4Macro “SHOW.TOOLBAR(“”Ribbon””,False)”
Else
Application.ExecuteExcel4Macro “SHOW.TOOLBAR(“”Ribbon””,True)”
End If
End Sub

VBA解説
  1. コマンドボタン1が押されたら
  2. もし、リボンツールバーが表示中ならば
  3. リボンツールバーを非表示にする
  4. そうでなかったら(非表示中ならば)
  5. リボンツールバーを表示する
  6. Ifステートメント終了
  7. マクロ終了

これでコマンドボタンを押すたびにリボンツールバーの現在の状態と反対の操作をするようになるので、表示中ならば非表示にしてくれ、非表示ならば表示してくれます。

スポンサーリンク

ウィンドウの操作関連

メニューバー(リボン)の表示/非表示以外にもいくつか利用しているのでご紹介します。

ボタン1つで表示を切り替えたり元に戻したりできると便利なので、ほかの表示方法も知っていて損はないと思いますよ!

ボタン1つで作業完了へ
ちょっとの工夫でエクセル作業が飛躍的に早く終わったらいいなあ~と思いませんか? 面倒くさい作業よ!さようなら!

スポンサーリンク


画面の操作
参考になりましたらシェア宜しくお願い致します

山頂テラスデッキからの三段紅葉(2019年11月)

フリーパスって助成金つぎ込んでいいの?

コロナ禍のGo To トラベル以外にも助成金だらけでうらやましいね。

安くなったフリーパスで遊びに行きたいけど、給与も減って余裕ないよね。

Excel VBA