Commandbar Controls

[Legacy 287389]

Hi good people!

I have the following code to disable "insert rows" and a few more things:

Sub ToggleCutCopyAndPaste(Allow As Boolean)
     'Activate/deactivate cut, copy, paste and pastespecial menu items
    Call EnableMenuItem(21, Allow) ' cut
    Call EnableMenuItem(19, Allow) ' copy
    Call EnableMenuItem(22, Allow) ' paste
    Call EnableMenuItem(755, Allow) ' pastespecial
     
     'Activate/deactivate drag and drop ability
    Application.CellDragAndDrop = Allow
     
     'Activate/deactivate cut, copy, paste and pastespecial shortcut keys
    With Application
        Select Case Allow
        Case Is = False
            .OnKey "^c", "CutCopyPasteDisabled"
            .OnKey "^v", "CutCopyPasteDisabled"
            .OnKey "^x", "CutCopyPasteDisabled"
            .OnKey "+{DEL}", "CutCopyPasteDisabled"
            .OnKey "^{INSERT}", "CutCopyPasteDisabled"
        Case Is = True
            .OnKey "^c"
            .OnKey "^v"
            .OnKey "^x"
            .OnKey "+{DEL}"
            .OnKey "^{INSERT}"
        End Select
    End With
End Sub

then a next code:

Sub EnableMenuItem(ctlId As Integer, Enabled As Boolean)
     'Activate/Deactivate specific menu item
    Dim cBar As CommandBar
    Dim cBarCtrl As CommandBarControl
    For Each cBar In Application.CommandBars
        If cBar.Name <> "Clipboard" Then
            Set cBarCtrl = cBar.FindControl(ID:=ctlId, recursive:=True)
            If Not cBarCtrl Is Nothing Then cBarCtrl.Enabled = Enabled
        End If
    Next
End Sub

and a next one:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Call ToggleCutCopyAndPaste(True)
    Dim ctl As CommandBarControl
     For Each ctl In Application.CommandBars.FindControls(ID:=293)
         ctl.Enabled = True
     Next ctl
     For Each ctl In Application.CommandBars.FindControls(ID:=294)
         ctl.Enabled = True
     Next ctl
     For Each ctl In Application.CommandBars.FindControls(ID:=3183)
         ctl.Enabled = True
     Next ctl

then this one:

Private Sub Workbook_Deactivate()
    Call ToggleCutCopyAndPaste(True)
    Dim ctl As CommandBarControl
     For Each ctl In Application.CommandBars.FindControls(ID:=293)
         ctl.Enabled = True
     Next ctl
     For Each ctl In Application.CommandBars.FindControls(ID:=294)
         ctl.Enabled = True
     Next ctl
     For Each ctl In Application.CommandBars.FindControls(ID:=3183)
         ctl.Enabled = True
     Next ctl
End Sub

then the last one:

Private Sub Workbook_Open()
 
    Call ToggleCutCopyAndPaste(False)
     Dim ctl As CommandBarControl
     For Each ctl In Application.CommandBars.FindControls(ID:=293)
         ctl.Enabled = False
     Next ctl
     For Each ctl In Application.CommandBars.FindControls(ID:=294)
         ctl.Enabled = False
     Next ctl
     For Each ctl In Application.CommandBars.FindControls(ID:=3183)
         ctl.Enabled = False
     Next ctl
End Sub

The problem is this: I need to insert some rows for the author of this spreadsheet. I have changed the "False" properties to "true" for the workbook open event...but still the right click menu 'delete" is disabled. (greyed out)...please help me get this item enabled?..please, any help will be accepted with the utmost of gratitude!!

thank you..