![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
bonaronさんありがとうございます。
以下のコードで、ツールバーの非表示→表示がOKになったのですが、ファイル起動時にツールバーを非表示にして、ファイル終了時にツールバーを元に戻したいと思っています。よって、以下のコードを非表示にするコード、元にもどすコードの二つに分けたいのですができません。
非表示にするためには、
.CommandBars(i).Visible = False
End If
Next i
End With
End Sub
で閉じればできるのですが、元に戻すコードの方はどのように書いたら良いのでしょうか?ご教授願います。
//////////////////////////////////////////////
Sub Test()
Dim i, p(50), ToolCount
With Application
MsgBox "ツールバーを非表示にします。"
'カウンター変数の初期化
ToolCount = 0 '<------
For i = .CommandBars.Count To 2 Step -1
If .CommandBars(i).Visible = True Then
' カウンター変数1UP
ToolCount = ToolCount + 1 '<--- この位置
'表示されていたら配列pにインデックスを書き込んで
'そのコマンドバーを非表示にする。
p(ToolCount) = i
.CommandBars(i).Visible = False
End If
Next i
MsgBox "ツールバーを元に戻します。"
For i = 1 To ToolCount
'配列pに書き込まれたインデックスを読み込んで
'そのコマンドバーを表示する。
.CommandBars(p(i)).Visible = True '<---
Next i
End With
End Sub
No.1ベストアンサー
- 回答日時:
こんばんは。
Visible プロパティは表示/非表示をコントロールしますが、
元々どのツールバーが表示されていたのかを覚えておく必要があり
面倒です。
そこで、Enabled プロパティを使用します。False(使用不可)に
設定すると表示もされなくなります。
例えばこんな↓コードでいかがでしょうか?
起動時にすべてのツールバーを使用不可にし、終了時にすべての
ツールバーを使用可能にします。
Visible は変更しないので実行前の状態に戻すことが出来ます。
(標準モジュールに記述します。)
Public Sub Auto_Open()
'ツールバーを非表示
Dim MyCommandBar As CommandBar
For Each MyCommandBar In CommandBars
MyCommandBar.Enabled = False
Next
End Sub
Public Sub Auto_Close()
'ツールバーを再表示
Dim MyCommandBar As CommandBar
For Each MyCommandBar In CommandBars
MyCommandBar.Enabled = True
Next
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 6 2022/06/08 12:55
- Excel(エクセル) 【マクロ】リボン、行列、数式・ステータスバを非表示に 4 2022/12/12 07:32
- Visual Basic(VBA) VBA Bookの表示、非表示 1 2022/09/16 20:44
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/06/19 10:08
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/03/25 08:33
- PowerPoint(パワーポイント) エクセルのマクロについて教えてください。 1 2022/03/25 17:03
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 4 2023/05/26 10:43
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/06/10 11:06
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2022/04/01 12:11
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルブックの全シートの非表示列を再表示したい 1 2022/12/24 20:48
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのツールバーが隠れて...
-
ツールバーが2段になってしま...
-
wordのツールバーに中央揃えが...
-
googleブックマークの使い方が...
-
TF_FloatingLangBar_WndTitleに...
-
excelのツールバーの固定方法
-
ワードパッドの行間
-
ACCESSのツールバーを非表示に...
-
PDF Xchange viewerの書体変更
-
エクセルでセルの内容を表示す...
-
文字が斜体になってしまうので...
-
ローマ字数字IIを正確に表示す...
-
Windows Media Player10でフル...
-
ページの下方が画面表示できない
-
outlookで、ダブルクリックでの...
-
エクセルの数式バーのフォント...
-
Windows10 エクスプローラー表...
-
Wordのツールバーが消えた
-
Excelのウィンドウが少し小さく、ズ...
-
discord内での動画共有について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ACCESSのツールバーを非表示に...
-
エクセル セルにチェック印(...
-
ワードパッドの行間
-
ツールバーが消えません
-
デスクトップ左側に現れた、バ...
-
フォルダのアドレスバーが表示...
-
タスクバーの幅が広くなった、...
-
ヘッダーとフッターのツールバー
-
初心者です。ツールバーが消え...
-
google chrome でツールバーが...
-
WordやExcelのツールバーの固定
-
internet explorer の アド...
-
URLを入力する場所であるアドレ...
-
[Internet Explorer]用各種ツー...
-
エクセルの図を削除
-
よく使う機能をツールバーに表...
-
メッセンジャーの人形マークが...
-
リンクバーをアドレスバーの下...
-
googleブックマークの使い方が...
-
ツールバーにHPアドレスが表示...
おすすめ情報