[VBA]_限制Excel表右键功能

'=================================================
Sub DisableRightClick() ' 禁止右键菜单
'=================================================
    Dim cd As CommandBar
    For Each cd In Application.CommandBars
        If cd.Type = msoBarTypePopup Then    '判断菜单的类型
            cd.Enabled = False
        End If
    Next cd
End Sub

'================================================
Sub DisableKeyboardFunction() '禁止键盘功能
'================================================
    Application.OnKey "^c", ""
    Application.OnKey "^x", ""
    Application.OnKey "^v", ""
    Application.OnKey "^{INSERT}", ""
    Application.OnKey "+{INSERT}", ""
    Application.OnKey "+{DEL}", ""
    Application.CellDragAndDrop = False
End Sub

        Application.DisplayFormulaBar = False '禁止编辑栏
        Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)" '禁止Ribbon框