right click menu on sheet / page Free Excel Macros (VBA) | Excel Programs

Copy Macro

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 
 
Sub Auto_Open()
    PopUpMenu
End Sub
'
Sub PopUpMenu()
    Dim cb As CommandBar
    Set cb = Application.CommandBars("Cell")
    '
    Set MenuObject = cb.Controls.Add(Type:=msoControlPopup, Temporary:=True)
    MenuObject.Caption = "Benim Menüm"
    MenuObject.BeginGroup = True
    '
    With MenuObject
        With .Controls.Add(Type:=msoControlButton)
            .OnAction = "RaiderMacro1"
            .FaceId = 7
            .Caption = "Alt Menüm - 1"
        End With
        With .Controls.Add(Type:=msoControlButton)
            .OnAction = "RaiderMacro2"
            .FaceId = 17
            .Caption = "Alt Menüm - 2"
        End With
        With .Controls.Add(Type:=msoControlButton)
            .OnAction = "RaiderMacro3"
            .FaceId = 27
            .Caption = "Alt Menüm - 3"
        End With
    End With
    '
    Set MenuObject2 = MenuObject.Controls.Add(Type:=msoControlPopup, Temporary:=True)
    MenuObject2.Caption = "Benim 2nci Seviye Menüm - 1"
    '
    With MenuObject2
        With .Controls.Add(Type:=msoControlButton)
            .OnAction = "RaiderMacro4"
            .FaceId = 37
            .Caption = "2nci Seviye(1) Alt Menüm - 1"
        End With
        With .Controls.Add(Type:=msoControlButton)
            .OnAction = "RaiderMacro5"
            .FaceId = 47
            .Caption = "2nci Seviye(1) Alt Menüm - 2"
        End With
    End With
    '
    Set MenuObject3 = MenuObject.Controls.Add(Type:=msoControlPopup, Temporary:=True)
    MenuObject3.Caption = "Benim 2nci Seviye Menüm - 2"
    '
    With MenuObject3
        With .Controls.Add(Type:=msoControlButton, ID:=4)
            .Visible = True
        End With
        With .Controls.Add(Type:=msoControlButton, ID:=3)
            .Visible = True
        End With
        With .Controls.Add(Type:=msoControlButton, ID:=1695)
            .Visible = True
        End With
    End With
    '
    Set cb = Nothing
    Set MenuObject = Nothing
    Set MenuObject2 = Nothing
End Sub
'
Sub RaiderMacro1()
    MsgBox "RaiderMacro1 çalıştırıldı !" & vbCrLf & vbCrLf & "(AltMenü-1)"
End Sub
'
Sub RaiderMacro2()
    MsgBox "RaiderMacro2 çalıştırıldı !" & vbCrLf & vbCrLf & "(AltMenü-2)"
End Sub
'
Sub RaiderMacro3()
    MsgBox "RaiderMacro3 çalıştırıldı !" & vbCrLf & vbCrLf & "(AltMenü-3)"
End Sub
'
Sub RaiderMacro4()
    MsgBox "RaiderMacro4 çalıştırıldı !" & vbCrLf & vbCrLf & "(2nci Seviye AltMenü-1)"
End Sub
'
Sub RaiderMacro5()
    MsgBox "RaiderMacro5 çalıştırıldı !" & vbCrLf & vbCrLf & "(2nci Seviye AltMenü-2)"
End Sub
'
Sub Auto_Close()
    Application.CommandBars("Cell").Reset
End Sub

No	Macro Name
1	right click menu on sheet / page
2	right mouse menu on sheet / page
3	perfectly deletes the menu to the right mouse and adds print print preview sheet / page structure
4	right mouse on active sheet / page menu
5	excel operators hk
6	a menu to the right mouse on a sheet / page
7	right mouse forbidden on active sheet / page
8	invalid right click on sheet / page
9	right mouse menu
10	userformless form menu sheet / page select
11	inserts months as sheet / pages Specifies days in detail
12	opening a web sheet / page
13	prints all sheet / pages with data or scans but does not print
14	insert sheet / page number macro
15	automatic custom footer and header information on sheet / pages
16	Click on c8: c18 to open the right mouse menu
17	Left click on cells c8: c18 to display right mouse menu
18	specifies in detail how many formulas are in the book (on new sheet / page)
19	list formulas on new sheet / page
20	specifies in detail how many references the book contains (on new sheet / page)

Excel Free Macros (VBA)

Right Click Menu On Sheet / Page

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords