ツールバーを非表示にするマクロ

あるＨＰで以下のコードを見つけて試してみました。
起動時に表示しているツールバーは消えるのですが、ファイルを閉じた場合に別のツールバーが開いてしまいます

どこかコードがおかしいのでしょうか？
当方EXCEL2000です。

http://excelfactory.net/excelvbatips/application …



Sub Test()
Dim i, p(50), ToolCount

With Application
MsgBox "ツールバーを非表示にします。"

ToolCount = 1
'カウンター変数の初期化

For i = .CommandBars.Count To 2 Step -1

If .CommandBars(i).Visible = True Then

p(ToolCount) = i

.CommandBars(i).Visible = False
'表示されていたら配列pにインデックスを書き込んで
'そのコマンドバーを非表示にする。

ToolCount = ToolCount + 1
' カウンター変数１ＵＰ
End If
Next i


MsgBox "ツールバーを元に戻します。"

For i = 1 To ToolCount

.CommandBars(i).Visible = True

'配列pに書き込まれたインデックスを読み込んで
'そのコマンドバーを表示する。
Next i

End With
End Sub

No.1 ベストアンサー 回答者： bonaron 回答日時： 2006/04/14 19:38

コードが間違っていると思われます。

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

' カウンター変数１ＵＰ
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

この回答へのお礼

完璧です。ありがとうござました。

お礼日時：2006/04/14 22:03