| |
>ＭＯＯＮさん
ご回答ありがとうございます。
残念ながらVisibleでなぜエラーが出るのかまだわかっておりませんが、
以下のようにVisibleを使わずに、Enabled を使うように変更したらエラーが出ず
上手く動きました。
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.Enabled
objToolbar.Enabled = False
i = i + 1
Next
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim i As Long
i = 1
Do Until Worksheets("Sheet1").Range("A" & i) = ""
If Worksheets("Sheet1").Range("B" & i) = "True" Then
Application.CommandBars.Item(Worksheets("Sheet1").Range("A" & i)).Enabled = True
End If
i = i + 1
Loop
End Sub
|
|
BOM
- 07/8/6(月) 0:37 -
