关于excel的禁止拷贝

triangleyyc · 发表于 2014-5-2 08:25

各位大侠，请教，在excel中如果禁止某sheet的内容的复制，同时禁止删除，编辑，插入，粘贴，应怎么写代码呢？
如果禁止某sheet的内容复制，同时允许删除，编辑，插入，粘贴等操作，应如何写代码呢？

如果从第一种情况转换到第二种情况，应该怎么写代码呢？

多谢各位高手啊

triangleyyc · 发表于 2014-5-2 10:33

大概都在过节，街道上冷冷清清，论坛里也冷冷清清的咧

mjzxlmg · 发表于 2014-5-2 11:10

本帖最后由 mjzxlmg 于 2014-5-2 11:26 编辑

http://club.excelhome.net/thread-1003170-1-4.html

2003版：你自行搜索
2007版以上要重写customUI
2013版：
<?xml version="1.0" encoding="UTF-8"?>
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
<commands>
   <command idMso="TabPublish" enabled="false"/>
   <command idMso="TabShare" enabled="false"/>
   <command idMso="TabSave" enabled="false"/>
   <command idMso="ApplicationOptionsDialog" enabled="false"/>
   <command idMso="Copy" enabled="false"/>
   <command idMso="CopyAsPicture" enabled="false"/>
   <command idMso="Cut" enabled="false"/>
   <command idMso="SheetMoveOrCopy" enabled="false"/>
</commands>
<ribbon>
</ribbon>
</customUI>

工作簿打开时再加入：(禁用键盘剪切、复制、粘贴）
Application.OnKey("^x", "")
Application.OnKey("^c", "")
Application.OnKey("^v", "")