Excel, VBA, CustomMenu

'
' Forrás: EXCEL PROGRAMOZÁS (Pusztai Pál)
'

'Saját menü létrehozás
Sub MenuKirak()
    MenuLevesz
    Dim fomenu As CommandBar
    Dim fomenupont As CommandBarControl, almenupont As CommandBarControl
    Set fomenu = Application.CommandBars.ActiveMenuBar
    'Egy új (felbukkanó) menüpont létrehozása
    Set fomenupont = fomenu.Controls.Add(Type:=msoControlPopup)
    fomenupont.Caption = "Menü"
    'Az új főmenüponthoz egy új almenüpontot
    Set almenupont = fomenupont.CommandBar.Controls.Add(Type:=msoControlButton)
    almenupont.Caption = "Form megjelenítés"
    'A menüpont aktivizálásakor lefutó szubrutin
    almenupont.OnAction = "ThisWorkbook.FormKirak"
End Sub

Sub FormKirak()
    'UserForm1.Show vbModal
    UserForm1.Show vbModeless
End Sub

'Saját menü levétele
Sub MenuLevesz()
    Dim menupont As CommandBarControl
    For Each menupont In Application.CommandBars.ActiveMenuBar.Controls
      If menupont.Caption = "Menü" Then
        menupont.Delete
      End If
    Next
End Sub

'Az eredeti rendszermenü visszaállítása (ha elrontanánk a menüt)
Sub MenuAlaphelyzet()
    Application.CommandBars("Worksheet Menu Bar").Reset
End Sub

Private Sub Workbook_Deactivate()

End Sub

Private Sub Workbook_Open()

End Sub