Public Function fncVis_ContectBar_Create(ByRef rTarget As Range, _
                                    Optional ByVal bHOME As Boolean, _
                                    Optional ByVal bHOMEPREVIOS As Boolean, _
                                    Optional ByVal bFILTRSET As Boolean, _
                                    Optional ByVal bCODESELECT As Boolean, _
                                    Optional ByVal bCODEGOTO As Boolean, _
                                    Optional ByVal bCODECREATE As Boolean) As Boolean

OS
Dim cBarControl As Object
Dim cBarControlCount As Integer
Application.CommandBars("Cell").Reset 'èñõîäíîå ñîñòîÿíèå
For Each cBarControl In Application.CommandBars("cell").Controls
        cBarControl.Delete
Next cBarControl
Next1: If Not bHOME Then GoTo Next2:
With Application.CommandBars("cell").Controls.Add(Type:=msoControlButton, before:=1, temporary:=False)
    .Caption = "Äîìîé" 'ïåðåõîä íà òèòóëüíûé ëèñò
    .OnAction = "fncVis_Goto_HOME"
    .Tag = "bHOME"
End With: cBarControlCount = cBarControlCount + 1

Next2: If Not bHOMEPREVIOS Then GoTo Next3:
If wsPrev Is Nothing Then GoTo Next3:
With Application.CommandBars("cell").Controls.Add(Type:=msoControlButton, before:=1, temporary:=False)
    .Caption = "Íàçàä" 'ïåðåõîä íà ïðóäûäóùèé ëèñò, åñëè ñîõðàíåí  wsPrev
    .OnAction = "fncVis_Goto_HOMEPREVIOS"
    .Tag = "bHOMEPREVIOS"
End With: cBarControlCount = cBarControlCount + 1

Next3: If Not bFILTRSET Then GoTo Next4:
With Application.CommandBars("cell").Controls.Add(Type:=msoControlButton, before:=1, temporary:=False)
    .Caption = IIf(bVIS_FILTRON, "&#206;&#247;&#232;&#241;&#242;&#232;&#242;&#252; &#244;&#232;&#235;&#252;&#242;&#240;", "&#212;&#232;&#235;&#252;&#242;&#240;" & IIf(sVIS_CELLSBAR_CaptionPostfix <> Empty, " &#239;&#238; " & sVIS_CELLSBAR_CaptionPostfix, "..."))
    .OnAction = "fncVis_FILTRSET"
    .Tag = "bFILTRSET"
End With: cBarControlCount = cBarControlCount + 1

Next4: If Not bCODESELECT Then GoTo Next5:
Set rFrmSelectCode = ActiveCell 
With Application.CommandBars("cell").Controls.Add(Type:=msoControlButton, before:=1, temporary:=False)
    .Caption = "&#194;&#251;&#225;&#240;&#224;&#242;&#252;" & IIf(sVIS_CELLSBAR_CaptionPostfix <> Empty, " &#232;&#231; " & sVIS_CELLSBAR_CaptionPostfix, "...")
    .OnAction = "fncVis_Goto_CODESELECT"
    .Tag = "bCODESELECT"
End With: cBarControlCount = cBarControlCount + 1

Next5: If Not bCODEGOTO Then GoTo Next6:
With Application.CommandBars("cell").Controls.Add(Type:=msoControlButton, before:=1, temporary:=False)
    .Caption = "&#207;&#229;&#240;&#229;&#233;&#242;&#232;" & IIf(sVIS_CELLSBAR_CaptionPostfix <> Empty, " &#234; " & sVIS_CELLSBAR_CaptionPostfix, "...")
    .OnAction = "fncVis_Goto_CODEGOTO"
    .Tag = "bCODEGOTO"
End With: cBarControlCount = cBarControlCount + 1

Next6: If Not bCODECREATE Then GoTo Next7:
With Application.CommandBars("cell").Controls.Add(Type:=msoControlButton, before:=1, temporary:=False)
    .Caption = "&#209;&#238;&#231;&#228;&#224;&#242;&#252; ... "
    .OnAction = "fncVis_Goto_CODECREATE"
    .Tag = "bCODECREATE"
End With: cBarControlCount = cBarControlCount + 1

Next7: 'If Not bCODECREATE Then GoTo Next7:

Exit1:
If cBarControlCount = 0 Then Application.CommandBars("Cell").Reset '
End Function

Dim menu As CommandBar, but As CommandBarControl
Dim varr As Variant, iC As Integer
Dim vB As Variant
Dim c2 As CommandBarControl
ReDim varr(1): iC = 0
For Each menu In Application.CommandBars
    menu.Reset: iC = iC + 1
    ReDim Preserve varr(iC): varr(iC) = menu.Name
Next menu

Set menu = Application.CommandBars("Worksheet Menu Bar")
Set c2 = menu.Controls(2): Debug.Print c2.Caption
For Each but In c2.Controls
    If but.ID = 21 Then 'вырезать
        Debug.Print but.Caption
        but.Caption = "vbaCut"
        but.TooltipText = "vbaCUT"
        but.Visible = False
        but.Delete
        End If
Next but

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
 Dim oCB As CommandBar, oCr As CommandBarControl, oCc As CommandBarControl
    For Each oCB In Application.CommandBars
    If oCB.Name <> "Worksheet Menu Bar" Then GoTo NextOCB:
            oCB.Protection = msoBarNoProtection
            Set oCr = oCB.FindControl(ID:=30003) 'меню &Правка
            If oCr Is Nothing Then Exit For 'меню &Правка не найдено
                Debug.Print oCr.ID, oCr.Caption & "           ----------------------------------"
                oCr.Reset
                For Each oCc In oCr.Controls
                    Select Case oCc.ID
                       Case 21
                           oCc.Visible = False
                           oCc.Enabled = False
                           Debug.Print oCc.ID, oCc.Caption
                       Case Else
                       End Select
                Next 'oCc
NextOCB: Next 'oCB
Cancel = True
End Sub