怎么禁用Excel中的剪切、复制、粘贴功能？ _知识经验

Q：在Excel中，如何禁止使用剪切、复制、粘贴功能，以避免他人破坏我的数据？
A：在Excel 2003中，常使用下面的代码来禁用剪切、复制、粘贴等功能。
DimcmdBar As CommandBar
DimcbrCtl As CommandBarControl
SubDisableCutCopyPaste()
‘禁用快捷菜单中的命令
DoWithControl 21, False ‘剪切
DoWithControl 19, False ‘复制
DoWithControl 22, False ‘粘贴
DoWithControl 755, False ‘选择性粘贴
‘快捷键命令
With Application
.OnKey “^c”, “”
.OnKey “^x”, “”
.OnKey “^v”, “”
.CellDragAndDrop = False
.OnDoubleClick = “test”
End With
EndSub
SubDoWithControl(iId As Integer, blnState As Boolean)
Dim cmbBar As CommandBar
Dim cmbCtl As CommandBarControl
On Error Resume Next
For Each cmbBar In Application.CommandBars
Set cmbCtl =cmbBar.FindControl(ID:=iId, Recursive:=True)
If Not cmbCtl Is Nothing ThencmbCtl.Enabled = blnState
Next cmbBar
EndSub
Subtest()
MsgBox “命令不可用!”
EndSub
然而，在Excel 2007及以后的版本中，上述代码只能禁用快捷菜单和快捷方式的剪切、复制、粘贴等功能，在功能区中剪切、复制、粘贴仍然可以使用，快速访问工具栏中的也可以使用。如下图1所示。