如何在EXCEL中实现禁止复制粘贴
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
如何在EXCEL中实现禁止复制 粘贴
Prepared by : HelenLiu Date:2013-1-17Fra Baidu bibliotek
• Alt+F11 输入以下： • 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
谢谢！
Prepared by : HelenLiu Date:2013-1-17Fra Baidu bibliotek
• Alt+F11 输入以下： • 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
谢谢！