|
はじめまして。VBA初心者です。
ファイルをオープンしたときにツールバーを隠したい
ThisWorkbookに以下のコードを書きましたがうまく動きません。。
「実行時エラー '-2147467259(80004005)':
'Visible'メソッドは失敗しました:'CommandBar'オブジェクト」
というエラーが発生します。
原因が全くわからず困ってます。。
誰かヒントを教えていただけないでしょうか?
Sub Workbook_Open()
Dim objToolbars As CommandBars
Dim objToolbar As CommandBar
Dim i As Long
i = 1
Set objToolbars = Application.CommandBars
For Each objToolbar In objToolbars
Worksheets("Sheet1").Range("A" & i) = objToolbar.Index
Worksheets("Sheet1").Range("B" & i) = objToolbar.Visible
objToolbar.Visible = False
i = i + 1
Next
End Sub
|
|