EXcel 禁用/恢复 复制粘贴功能
来源:百度文库 编辑:神马文学网 时间:2024/07/03 07:09:15
禁用/恢复 复制,粘贴功能,代码如下:
Sub DisableCopyCutAndPaste()
EnableControl 21, False ' 剪切
EnableControl 19, False ' 复制
EnableControl 22, False ' 粘贴
EnableControl 755, False ' 选择性粘贴
Application.OnKey "^c", "Dummy"
Application.OnKey "^v", "Dummy"
Application.OnKey "+{DEL}", "Dummy"
Application.OnKey "+{Insert}", "Dummy"
Application.CellDragAndDrop = False
Application.OnDoubleClick = "Dummy"
CommandBars("ToolBar List").Enabled = False
End Sub
Sub EnableCopyCutAndPaste()
EnableControl 21, True ' 剪切
EnableControl 19, True ' 复制
EnableControl 22, True ' 粘贴
EnableControl 755, True ' 选择性粘贴
Application.OnKey "^c"
Application.OnKey "^v"
Application.OnKey "+{DEL}"
Application.OnKey "+{Insert}"
Application.CellDragAndDrop = True
Application.OnDoubleClick = ""
CommandBars("ToolBar List").Enabled = True
End Sub
Sub EnableControl(Id As Integer, Enabled As Boolean)
Dim CB As CommandBar
Dim C As CommandBarControl
On Error Resume Next
For Each CB In Application.CommandBars
Set C = CB.FindControl(Id:=Id, recursive:=True)
If Not C Is Nothing Then C.Enabled = Enabled
Next
End Sub
Sub Dummy()
MsgBox "Sorry,本功能已被禁止使用!"
End Sub
Sub DisableCopyCutAndPaste()
EnableControl 21, False ' 剪切
EnableControl 19, False ' 复制
EnableControl 22, False ' 粘贴
EnableControl 755, False ' 选择性粘贴
Application.OnKey "^c", "Dummy"
Application.OnKey "^v", "Dummy"
Application.OnKey "+{DEL}", "Dummy"
Application.OnKey "+{Insert}", "Dummy"
Application.CellDragAndDrop = False
Application.OnDoubleClick = "Dummy"
CommandBars("ToolBar List").Enabled = False
End Sub
Sub EnableCopyCutAndPaste()
EnableControl 21, True ' 剪切
EnableControl 19, True ' 复制
EnableControl 22, True ' 粘贴
EnableControl 755, True ' 选择性粘贴
Application.OnKey "^c"
Application.OnKey "^v"
Application.OnKey "+{DEL}"
Application.OnKey "+{Insert}"
Application.CellDragAndDrop = True
Application.OnDoubleClick = ""
CommandBars("ToolBar List").Enabled = True
End Sub
Sub EnableControl(Id As Integer, Enabled As Boolean)
Dim CB As CommandBar
Dim C As CommandBarControl
On Error Resume Next
For Each CB In Application.CommandBars
Set C = CB.FindControl(Id:=Id, recursive:=True)
If Not C Is Nothing Then C.Enabled = Enabled
Next
End Sub
Sub Dummy()
MsgBox "Sorry,本功能已被禁止使用!"
End Sub
EXcel 禁用/恢复 复制粘贴功能
Piky Basket增强系统的复制和粘贴功能
教你如何使用OFFICE的复制与粘贴功能
系统的复制粘贴功能你知多少
用ClipX连续复制后再粘贴,增强系统的复制功能
EXCEL必备工具箱--区域隐藏/恢复功能
禁止使用“复制”、“粘贴,,..,,,...
EXCEL选择性粘贴
网页禁止使用“复制”、“粘贴
应用:让复制粘贴生效
网页禁止使用“复制”、“粘贴,,..,,,...
留言图片[复制粘贴即可]
excel功能
网页禁止复制粘贴的破解
网页禁止使用“复制”、“粘贴(转载)
[口袋素材]可复制、粘贴的表情符号
大学生机械“复制粘贴”成习惯
网页禁止使用“复制”、“粘贴,怎么办?
网页禁止使用“复制”、“粘贴-02
网页禁止“复制”、“粘贴(转载)
禁止复制粘贴的破解方法
妙用复制、粘贴命令—Windows剪贴板
破解网页禁止使用“复制”、“粘贴
大学生机械“复制粘贴”成习惯