excel如何限制一切复制粘贴的方法?

grandeurwang

请高手指教:
excel可以编辑,如何做到不可以复制粘贴?
限制包括下面几种:
1:快捷菜单中的复制粘贴剪贴等图标;
2:右键菜单中的复制,粘贴,剪贴,选择性粘贴等;
3:菜单栏中的复制,粘贴,剪贴,选择性粘贴等;
如何通过VBA实现??
还请高手告诉代码怎么写!
谢谢!
我在excelhome找到了些代码:如下:
Sub EnableMenu()
Dim oExcel
Set oExcel = Application
oExcel.CommandBars("edit").Controls(3).Enabled = False '菜单编辑中的剪切项
oExcel.CommandBars("cell").Controls(1).Enabled = False '右键菜单中的剪切项
oExcel.CommandBars("Standard").Controls(10).Enabled = False '工具栏中的剪切项
oExcel.CommandBars("edit").Controls(4).Enabled = False '菜单编辑中的复制项
oExcel.CommandBars("cell").Controls(2).Enabled = False '右键菜单中的复制项
oExcel.CommandBars("Standard").Controls(11).Enabled = False '工具栏中的复制项
End Sub

但是限制不够全,其他的限制代码怎么写呢?
请高手赐教!!!

grandeurwang

请高手献身！！谢谢啦！！！

3abc

我是新手，试着用以上楼主的代码，生成了一个宏，执行宏后，所有excel表的复制和粘贴都被限制了，不知如何解除，请高手们指教。

grandeurwang

VBA如何限制CTRL+C和CTRL+V呢?

求助高手!!!!

grandeurwang

搞定了,代码如下.此外还有个问题,在分页预览状态下还是没办法限制,有人知道怎么把分页预览也限制了吗?谢谢
Sub EnableMenu()
Dim oExcel
Set oExcel = Application
oExcel.CommandBars("edit").Controls(3).Enabled = False
oExcel.CommandBars("edit").Controls(4).Enabled = False
oExcel.CommandBars("edit").Controls(5).Enabled = False
oExcel.CommandBars("edit").Controls(6).Enabled = False
oExcel.CommandBars("edit").Controls(7).Enabled = False
oExcel.CommandBars("cell").Controls(1).Enabled = False
oExcel.CommandBars("cell").Controls(2).Enabled = False
oExcel.CommandBars("cell").Controls(3).Enabled = False
oExcel.CommandBars("cell").Controls(4).Enabled = False
oExcel.CommandBars("Standard").Controls(10).Enabled = False
oExcel.CommandBars("Standard").Controls(11).Enabled = False
oExcel.CommandBars("Standard").Controls(12).Enabled = False
oExcel.OnKey ("^x"), ""
oExcel.OnKey ("^c"), ""
oExcel.OnKey ("^v"), ""
End Sub

chenspwp

原帖由 3abc 于 2009-12-24 08:25 发表
我是新手，试着用以上楼主的代码，生成了一个宏，执行宏后，所有excel表的复制和粘贴都被限制了，不知如何解除，请高手们指教。

做一个和楼主一样的宏，然后把FALSE 都改成TRUE  执行以下，不知道能不能行

grandeurwang

希望对有这种要求的朋友们有帮助!!!

3abc

多谢楼主,按你的做法,可以解除限制了.

3388630145

怎么只限制在当前工作薄呢，其它工作薄不受影响可以吗。