| 楼主 dcb11111 |
在网上搜索到一个帖子，供大师鉴赏：在EXCEL界面下按ALT+F11键，或在工具，宏，VB编辑器打开的窗口中靠右边的大窗口中粘贴入下面代码。就可以了。一个单引号加中文，那是注释，就是向你表达，下面这段代码的作用， 可以一起粘贴进去。 别忘了在Excel退出前加解药，否则，其它正常的工作簿也不能使用复制粘贴了！解药就是把那些“False”改为True，删除onkey后面的“,""""”。 Sub cc() With Application '屏蔽常用工具栏剪切、复制、粘贴 .CommandBars(3).Controls("剪切(&T)").Enabled = False .CommandBars(3).Controls("复制(&C)").Enabled = False .CommandBars(3).Controls("粘贴(&P)").Enabled = False '屏蔽单元格右键菜单中的剪切、复制、粘贴命令 .CommandBars("Cell").Controls("剪切(&T)").Enabled = False .CommandBars("Cell").Controls("复制(&C)").Enabled = False .CommandBars("Cell").Controls("粘贴(&P)").Enabled = False '屏蔽编辑菜单中的剪切、复制、粘贴命令 .CommandBars(1).Controls("编辑(&E)").Controls("剪切(&T)").Enabled = False .CommandBars(1).Controls("编辑(&E)").Controls("复制(&C)").Enabled = False .CommandBars(1).Controls("编辑(&E)").Controls("粘贴(&P)").Enabled = False '屏蔽键盘剪切、复制、粘贴键 .OnKey "^x", "" .OnKey "^c", "" .OnKey "^v", "" End With End Sub 加了解药或删除代码也没用，要用下面的代码解除！ Sub 一键修复Excel() Dim i As Byte On Error Resume Next Application.ScreenUpdating = False For i = 1 To 155 Application.CommandBars(i).Reset Application.CommandBars(i).Enabled = True Application.CommandBars(i).Visible = False Next Application.CommandBars("Status Bar").Visible = True For i = 1 To 4 Application.CommandBars(i).Visible = True Next With Application .OnKey "^c" .OnKey "^v" .OnKey "^x" .OnKey "+{DEL}" .OnKey "+{INSERT}" .CellDragAndDrop = True .OnDoubleClick = "" End With Application.ScreenUpdating = True MsgBox "大功告成！" & "你的Excel已恢复。" & Chr(10) & "所有自定义菜单、按钮及功能限制均已解除。", 64, "【友情提示】" End Sub 以上代码可以恢复Excel所有限制 |
| 2楼 xyf2210 |
这个有用 |