Bardzo prosty kodzik:
Sub SetVisibleCommandBarControl(ByVal commandBarName As String, ByVal onAction As String, ByVal setVisible As Boolean)
Dim control As CommandBarControl
For Each control In CommandBars(commandBarName).Controls
If control.onAction = onAction Then
control.Visible = setVisible
End If
Next control
End Sub
Dostaję komunikat na linijce z ifem, object doesn't support this property or method... Zwariować można. Najlepsze jest to, że pętla leci ok, póki w OnAction nic nie ma, gdy dochodzi do buttona, w którym faktycznie jest to makro, którego szukam - wtedy wywala błąd :/ |