エクセルのツールバーとシートタブを隠す！

質問

エクセルのツールバーを「フォント」と「フォントサイズ」だけ残して、シートタブも隠したいのですが、ＶＢＡでできますか？

※ 特定のファイルが開かれたときのみ実行させたい（その他は、ユーザーのカスタマイズ通り）
※ Ｏｐｅｎイベントで実行
※ エクセル97、2000に対応（作成は97）

ツールバーを消してしまうＶＢＡは、結構見つけたのですが、どうもうまく行きません。どなたか宜しくお願いします。

回答No.1

nishi6 · ベストアンサー

シートタブを隠すのは、ActiveWindow.DisplayWorkbookTabs = False

こんなことしか考えつきませんでした。
表示→ツールバー→ユーザー設定でツールバータブを選択して新規作成し名前を付けます。
次にコマンドタブを選んで編集をクリック。フォントとフォントサイズを新しく作成したツールバーにドラッグ＆ドロップします。これをツールバーの位置（上）にドラッグ＆ドロップします。
後はこのツールバー以外を非表示にします。（フォントのみのツールバーを作ったわけです）

今、どのようなツールバーが規定値か分かりませんので消したいツールバーはマクロの記録を使いコードの書き方は分かると思います。

書く場所は、ThisWorkbookに下のような感じです。
Private Sub Workbook_Open()
　　ActiveWindow.DisplayWorkbookTabs = False
　　：
　　：
End Sub

ブックを閉じる時は元に戻したほうがいいでしょう。（ThisWorkbook）
Private Sub Workbook_BeforeClose(Cancel As Boolean)
　　ActiveWindow.DisplayWorkbookTabs = True
　　：
　　：
End Sub

お礼

ｎｉｓｈｉ６さん！
いつも、ありがとうございます。

ＯＫです。ありがとうございました。

あと、ＴＢのフォントサイズと大きさの方もありがとうございます。最近ちょっといそがしくってまだ試していません。もう少しお時間ください。今度の土日には何とかします。
それと、テキストボックスに値を入れる（３）の続きのほうもよろしくお願いします。