Każdy przycisk na pasku narzędziowym w momencie naciśnięcia generuje zdarzenie Click. Zdarzenie to posiada dwa parametry – pierwszy parametr zawiera obiekt CommandBarButton, który wygenerowł to zdarzenie, drugi parametr jest parametrem wejściowo/wyjściowym typu Boolean i poprzez ustawienie go na True można anulować akcję.
W module "Element" należy zadeklarować zmienną z użyciem słowa kluczowego WithEvents, co spowoduje dodanie nazwy zadeklarowanego obiektu do listy rozwijalnej z nazwami obiektów kontrolnych, a zdarzenia tego obiektu pojawią się w sąsiedniej liście rozwijalnej z nazwami makr, funkcji i metod. Kolejnym krokiem jest przypisanie zadeklarowanemu obiektowi właściwego przycisku z paska narzędzi. Można to zrobić poprzez pobranie obiektu z kolekcji lub podczas tworzenia przycisku.
Public WithEvents Przycisk As CommandBarButton
...
Inicjacja podcza tworzenia przycisku:
Set Przycisk=CommandBars("Pasek 1").Controls("&Dokument")
Po wybraniu z rozwijanej listy z nazwami obiektów "Przycisk" środowisko doda następujący kod obsługujący zdarzenie Click:
Private Sub Przycisk_Click(ByVal Button As CommandBarButton, CancelDafault As Boolean)
End Sub
Jeżeli parametr CancelDefault w kodzie obsługującym zdarzenie Click ustawimy na True, nie zostanie wykonana standardowa procedura (podłączona przez OnAction).