EXCEL屏蔽复制粘贴

在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