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

pllfh

　　我做了一个Excel表格模板需要别人来填写，对部分单元格格式进行了设定，但是经常会发现别人填的时候会直接从别处复制数据直接粘贴进我们的表格模板，结果破坏了我们预先设好的格式，这不仅会在外观上变得难看，更重要的是使得一些数据变得莫明其妙，如不可以计算等等。

　　当然，别人复制数据是为了避免手动输入的麻烦，但是很多填表格的人并不知道或者懒得用“选择性粘贴”这个功能。为了防止别人破坏预先设好的格式，我想禁用主菜单、右键菜单里的复制粘贴功能和“ctrl+c”、“ctrl+v”快捷键，只保留选择性粘贴。

　　可我的水平太低，不知怎么去做，在此向各位求助啦！（我只想禁用这一个表格模板的复制粘贴功能，打开其他的Excel表格时不受影响）

　　期盼各位大侠赐教，同时也请告知重新启用复制粘贴功能的办法。万分感谢！！！

ccwan

参考：

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

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

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

        '屏蔽键盘剪切、复制、粘贴键
        .OnKey "^x", ""
        .OnKey "^c", ""
        .OnKey "^v", ""
    End With
End Sub
 ccwan发表于：  2008-01-31  09:12
我的邮箱

pllfh

非常感谢ccwan，谢谢！

mouse21th

但是还是不能在文件启动时运行宏，而且，其它的文件也不能用复制了

yuanzhuping

QUOTE:

以下是引用mouse21th在2008-3-7 0:34:55的发言：

但是还是不能在文件启动时运行宏，而且，其它的文件也不能用复制了

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

xinhunter

ccwan的设置将影响用户的整个EXCEL程序，而且使用代码实现的功能始终是会受到限制的。

不知道还有没有高手愿意出招？

mouse21th

偶是门外汉，工作中需要，请麻烦发个完整的吧，谢谢了

mouse21th

拜托给位！

keya

屏蔽文件菜单里的 另存为 选项该如何设置呢？

li2653

禁用后怎样才能把复制、粘贴、剪切、还有删除、重命等名功能恢复正常啊？

急!请各位大侠帮忙。