ник: Lukas
CommandBars("Каталог").Controls("ПодпунктМеню").Controls("ПодпунктПодпунктаМеню").Enabled=False
Вот функция, которая распечатает в окне отладки цепочки для всех контролов в CommandBar:
'Примеры вызова из окна отладки: funPrintControls CommandBars("Каталог")
' funPrintControls CommandBars("Menu Bar")
' funPrintControls CommandBars(4)
Public Function funPrintControls(obj As Object, Optional strParent As String)
On Error Resume Next
Dim ctrl As Object
Dim strPath As String
If Len(strParent) = 0 Then
strPath = "CommandBars(" & Chr(34) & obj.Name & Chr(34) & ")."
Else
strPath = strParent & "Controls(" & Chr(34) & obj.Caption & Chr(34) & ")."
End If
For Each ctrl In obj.Controls
Debug.Print strPath & "Controls(" & Chr(34) & ctrl.Caption & Chr(34) & ").Enabled = True ' False"
If ctrl.Controls.Count > 0 Then
funPrintControls ctrl, strPath
End If
Next
End Function
|
Вам остается только выбрать нужную строчку и скопировать в код.