剪切复制粘贴功能的禁止

剪切复制粘贴功能的禁止

例1：禁止复制的所有功能

在EXCEL中禁止复制数据，只需用VBA禁用excel的复制功能就行了。代码如下：‘代码放在thisworkbook中

Private Sub Workbook_BeforeClose(Cancel As Boolean)

With Application

.CommandBars("Edit").Controls("复制(&c)").Enabled = True

.CommandBars("Standard").Controls("复制(&c)").Enabled = True

.CommandBars("Cell").Controls("复制(&c)").Enabled = True

.CommandBars("ply").Enabled = True

End With

End Sub

Private Sub Workbook_Open()

With Application

.OnKey key:="^c", procedure:="dd" '使用ctrl+c则运行dd

.CommandBars("Edit").Controls("复制(&c)").Enabled = False '复制菜单按钮失效

.CommandBars("Standard").Controls("复制(&c)").Enabled = False '复制工具按钮失效

.CommandBars("Cell").Controls("复制(&c)").Enabled = False '右键菜单复制按钮失效

.CommandBars("ply").Enabled = False '工作表标签右键菜单失效

End With

End Sub

'下列代码放在模块中

Sub dd()

MsgBox "呵呵！不能复制哦！"

End Sub

例2：关闭所有剪切、复制和粘贴功能

只能用宏来解决：

在【工具】里找到【宏】，找【VB编辑器】，

打开后，在右边空白处输入下面内容：

Sub Copy()

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