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所示。
图1
从图1中可以看出，单元格快捷菜单中的剪切、复制、粘贴等功能命令全变灰了，即表示不能使用了，但功能区和快速访问工具栏中的仍然可用。
此时，需要通过XML代码定制功能区来实现禁用功能区命令。关闭工作簿并使用Custom UI Editor打开工作簿，输入下图2所示的XML代码：
图2
验证无误并保存，关闭Custom UI Editor，重新打开工作簿，可以看到功能区和快速访问工具栏中的剪切、复制、粘贴等功能也都变灰了，如图3所示。
文章的内容来源于网络，由强国说学习-WPS之家(wps.qiangguoshuo.com)收集，希望能为广大朋友提供帮助。
图3
注：当在VBE或者其他应用程序中进行复制操作后，复制的数据会保存在剪贴板中，可以通过剪贴板在工作簿中粘贴这些数据。我想，可以使用DataObject对象来删除剪贴板的内容。
转载声明：本站发布文章及版权归原作者所有，转载本站文章请注明文章来源！
