CommandBars("Pasek 1").Controls(1).Enable=False
Lub równoważny:
CommandBars("Pasek 1").Controls("&Dokument").Enable=False
Jeżeli nie chcemy odwoływać się bezpośrednio do elementu kolekcji poprzez numer lub nazwę (które mógł ulec zmianie), podczas tworzenia przycisku możemy przechować go w zmiennej globalnej modułu i odwoływać się bezpośrednio do tej zmiennej:
Dim Przycisk as CommandBarButton
...
Set Przycisk = CommandBars("Pasek 1").Controls.Add(msoControlButton)
With Przycisk
.OnAction = "Akcja1"
.Caption = "&Dokument"
.FaceId = 36
End With
...
Przycisk.Enable = False