'================================================= 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框