在excel中防止复制粘贴的方法（转自论坛）

发表于：2010-6-2 08:47

从论坛里转来的，因为觉得有收藏价值。载明出处：为ntwuhui 老师在http://bbs.ictedu.net.cn/redirect.php?tid=57960&goto=lastpost#lastpost发的贴子中的内容。

1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
2. With Application
3. .CommandBars("Edit").Controls("复制(&c)").Enabled = True
4. .CommandBars("Cell").Enabled = True
5. .CommandBars("ply").Enabled = True
6. .CommandBars("Standard").Controls("复制(&c)").Enabled = True
7. End With
8. End Sub
10. Private Sub Workbook_Open()
11. With Application
12. .OnKey Key:="^c", procedure:="dd" '使用ctrl+c则运行dd
13. .CommandBars("Edit").Controls("复制(&c)").Enabled = False '复制菜单按钮失效
14. .CommandBars("Standard").Controls("复制(&c)").Enabled = False '复制工具按钮失效
15. .CommandBars("Cell").Enabled = False '右键菜单失效
16. .CommandBars("ply").Enabled = False '工作表标签右键菜单失效
17. End With
18. End Sub

复制代码

将下列贴入模块中

1. Sub dd()
2. MsgBox "呵呵！不能复制哦！"
3. End Sub

复制代码