[求助]怎样才能禁用复制粘贴功能啊？恳请赐教

muldaph

QUOTE:

以下是引用yuanzhuping在2008-3-7 1:08:02的发言：

将屏蔽的代码放到工作表的Private Sub Worksheet_Activate()事件中，只有这张表激活后才屏蔽。将恢复的代码放到工作表的Private Sub Worksheet_Deactivate()事件中。

如何复制呀？

hsw108

怎么才能在当前表中禁止复制啊，这个代码一用就是全部文件不能复制了，光是这张表禁止，要怎么写的代码？

请高手指教！

zjdh

5楼不是回答了你的问题了吗!

wflqj123

五楼的办法好象也解决不了问题，请再指教一下！！！

gljzyp

在结束语句前将所有 False  改成 True  就OK了

[此贴子已经被作者于2008-9-20 17:14:32编辑过]

hsw108

五楼的方法能不能详细些啊，禁止后再恢复我是懂了，问题是我只想禁止这张表，其它表要正常啊，要怎么处理哦？请高手详细讲一下。

gljzyp

Private Sub Worksheet_Deactivate()事件中 将所有 False  改成 True 

hsw108

Private Sub 开放复制()
    With Application
   
        '屏蔽常用工具栏剪切、复制、粘贴
        .CommandBars(3).Controls("剪切(&T)").Enabled = True
        .CommandBars(3).Controls("复制(&C)").Enabled = True
        .CommandBars(3).Controls("粘贴(&P)").Enabled = True

        '屏蔽单元格右键菜单中的剪切、复制、粘贴命令
        .CommandBars("Cell").Controls("剪切(&T)").Enabled = True
        .CommandBars("Cell").Controls("复制(&C)").Enabled = True
        .CommandBars("Cell").Controls("粘贴(&P)").Enabled = True

        '屏蔽编辑菜单中的剪切、复制、粘贴命令
        .CommandBars(1).Controls("编辑(&E)").Controls("剪切(&T)").Enabled = True
        .CommandBars(1).Controls("编辑(&E)").Controls("复制(&C)").Enabled = True
        .CommandBars(1).Controls("编辑(&E)").Controls("粘贴(&P)").Enabled = True

        '屏蔽键盘剪切、复制、粘贴键
        .OnKey "^x"
        .OnKey "^c"
        .OnKey "^v"
    End With
End Sub

figfig

补充:还需要禁止鼠标拖曳复制

Private Sub Worksheet_Activate()
Application.CutCopyMode = False
Application.OnKey "^c", ""
Application.CellDragAndDrop = False

End Sub

[此贴子已经被作者于2008-9-20 17:33:47编辑过]

figfig

恢复复制代码

Private Sub Worksheet_Deactivate()
Application.CellDragAndDrop = True
Application.OnKey "^c"
Application.CutCopyMode = False

End Sub

[此贴子已经被作者于2008-9-20 17:25:17编辑过]