-PR-
解決
済み

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

  • すぐに回答を!
  • 質問No.95919
  • 閲覧数722
  • ありがとう数1
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 59% (116/195)

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

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

ツールバーを消してしまうVBAは、結構見つけたのですが、どうもうまく行きません。どなたか宜しくお願いします。
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

質問者が選んだベストアンサー

  • 回答No.1
レベル13

ベストアンサー率 68% (791/1163)

シートタブを隠すのは、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
お礼コメント
rurucom

お礼率 59% (116/195)

nishi6さん!
いつも、ありがとうございます。

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

あと、TBのフォントサイズと大きさの方もありがとうございます。最近ちょっといそがしくってまだ試していません。もう少しお時間ください。今度の土日には何とかします。
それと、テキストボックスに値を入れる(3)の続きのほうもよろしくお願いします。
投稿日時 - 2001-06-28 19:38:23
-PR-
-PR-
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ