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

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True ' don't display the built-in popup menu
    DisplayCustomPopUp
End Sub

'Modüle
Option Explicit
Const PopUpCommandBarName As String = "TemporaryPopupMenu"

Sub DeletePopUp()
    On Error Resume Next
    CommandBars(PopUpCommandBarName).Delete
    On Error GoTo 0
End Sub

Sub CreatePopUp()
Dim cb As CommandBar, m As CommandBarPopup
    DeletePopUp
    Set cb = CommandBars.Add(PopUpCommandBarName, msoBarPopup, False, True)
    With cb
        With .Controls.Add(Type:=msoControlButton)
            .OnAction = "MyMacroName"
            .FaceId = 71
            .Caption = "Custom Menu 1"
            .TooltipText = "Custom Tooltip Text 1"
        End With
        With .Controls.Add(Type:=msoControlButton)
            .OnAction = "MyMacroName"
            .FaceId = 72
            .Caption = "Custom Menu 2"
            .TooltipText = "Custom Tooltip Text 2"
        End With
        With .Controls.Add(Type:=msoControlButton)
            .OnAction = "MyMacroName"
            .FaceId = 73
            .Caption = "Custom Menu 3"
            .TooltipText = "Custom Tooltip Text 3"
        End With
    
        Set m = .Controls.Add(Type:=msoControlPopup)
        With m
            .BeginGroup = True
            .Caption = "Sub Menu"
            
            With .Controls.Add(Type:=msoControlButton)
              .OnAction = "MyMacroName"
              .FaceId = 71
              .Caption = "Custom Menu 1"
              .TooltipText = "Custom Tooltip Text 1"
            End With
            With .Controls.Add(Type:=msoControlButton)
              .OnAction = "MyMacroName"
              .FaceId = 72
              .Caption = "Custom Menu 2"
              .TooltipText = "Custom Tooltip Text 2"
            End With
            With .Controls.Add(Type:=msoControlButton)
              .OnAction = "MyMacroName"
              .FaceId = 73
              .Caption = "Custom Menu 3"
              .TooltipText = "Custom Tooltip Text 3"
            End With
        End With
        Set m = Nothing
        
    End With
    Set cb = Nothing
End Sub

Sub DisplayCustomPopUp()
    On Error Resume Next
    Application.CommandBars(PopUpCommandBarName).ShowPopup
    On Error GoTo 0
End Sub

Sub DisplayExampleUserForm()
    Load UserForm1
    UserForm1.Show
    Unload UserForm1
End Sub

Sub MyMacroName()
Dim ctrl As CommandBarControl
    If Not UserForm1.Visible Then
        Set ctrl = Application.CommandBars.ActionControl
        ActiveCell.Formula = ctrl.Caption
        Set ctrl = Nothing
    Else
        If Application.International(xlCountrySetting) = 47 Then
            MsgBox "Dette kunne vært din egen makro som kjørte!", vbInformation, ThisWorkbook.Name
        Else
            MsgBox "This could be your macro running!", vbInformation, ThisWorkbook.Name
        End If
    End If
End Sub

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

Excel Free Macros (VBA)

Right Mouse On Active Sheet / Page Menu

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords