Excel VBAでリボンを非表示にした場合
VBA独学中の初心者です。Excelは2013です。
リボンを非表示にするマクロは以下になると思いますが、元に戻すマクロの記述を書かなかった場合、再度リボンを表示させるにはどんな方法が有るでしょうか。
(元に戻せなかった時が怖いのでほぼ机上検討で質問を投稿しています。従って下記は間違っているところがあるかもしれません。その場合はそれも含めてご指摘いただければありがたいです。)
(1) 前提
おそらくその後開くExcelファイル全て非表示になると思っていますので、それを前提に質問しています。
--------------------
(2) 非表示化のVBA
Private Sub Workbook_open()
Application.ExecuteExcel4Macro “SHOW.TOOLBAR(“”Ribbon””, False)”
End Sub
----------
でリボンを非表示した場合で、
--------------------
(3) 再表示:ブックを閉じるときの自動動作として
----------
Private Sub Workbook_BeforeClose()
'(あるいは Sub Auto_Close())
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", True)"
End Sub
----------
を書かなかった場合や、
(4) 再表示:コントロールに記述
----------
Private Sub CommandButton1_Click()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", True)"
End Sub
----------
も配置しなかった場合、
(5) 質問
リボンを再表示させるにはどんな方法が有るでしょうか。
--------------------
以下の視点で考えてみましたが、どうも答えが見つかりません。
a) マクロを走らせないで開く方法
→Shift+ファイルのダブルクリックでもVBAは動作した
→ファイルタブからShift+で開こうとしてもそもそもファイルタブがない
b) 別のファイルでもいいのでコントロールがあればそのプロシージャの編集からVBEを開く
→右クリックしてもプロシージャが編集できるコマンドが出てこない
--------------------
以上、WEBで探しても見つけられず、おわかりの方教えていただけませんでしょうか。
宜しくお願いします。
お礼
表示されました。有難うございました。