浪迹天涯中的皇上:EXcel 禁用/恢复复制,粘贴功能

来源：百度文库编辑：中财网时间：2024/05/09 14:38:42

禁用/恢复复制,粘贴功能,代码如下:

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文件中的复制粘贴功能,谢谢,挺急的! 在EXCEL中怎样禁用复制功能禁用windows剪切、复制功能 excel复制有没有记忆功能？粘贴时右键选择“值和格式”有没有记忆功能？ xp中无法使用复制粘贴功能！操作系统复制和粘贴功能消失我的电脑系统中的复制、剪切和粘贴功能消失了，怎么恢复。系统是XP的。 Microsoft Excel自动恢复被禁用怎么办? 新建文件功能被禁用如何恢复奇怪！！为什么不能在Excel里复制粘贴哩？？复制粘贴怎样恢复被禁止的复制粘贴快捷键 win2000的复制粘贴，搜索等功能无法使用 Office2000的“复制/粘贴”功能无效了？为什么有的网页无法使用复制、粘贴功能？罗技MX518能自定义按键功能吗？比如“复制”、“粘贴” Turbo c 2.0有没有复制粘贴这个功能??? 计算机上的复制、粘贴功能失效了。 MOTO L7 有复制功能吗？文字的复制和粘贴功能如何破解网页的禁用鼠标右键和复制功能请问高手在excel用复制和粘贴怎样能将行高也复制下来？请问高手在excel用复制和粘贴怎样能将行高也复制下来？ L7里面有复制功能吗我说的是文字的复制和粘贴我从word里复制东西到Excel 但粘贴完了一点别的格粘贴的格就变0 什么问题

浪迹天涯中的皇上:EXcel 禁用/恢复 复制,粘贴功能

浪迹天涯中的皇上:EXcel 禁用/恢复复制,粘贴功能