怎么才能让工作表禁止复制粘贴功能啊？

blhong · 发表于 2012-2-23 11:26

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.CutCopyMode = False
End Sub
在thisworkbook模块中加入此事件宏

请问如何在thisworkbook模块中加入此事件宏，

嬡茬莪掱ф · 发表于 2012-6-21 16:14

飘过，不懂VBA语言，是种痛苦

panhuayo · 发表于 2012-8-10 14:51

doitbest 发表于 2011-11-11 15:11
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.Cu ...

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.CutCopyMode = False
End Sub
在thisworkbook模块中加入此事件宏

我已经加入楼主及这位高手的事件宏，有效，但有两个问题想请教一下
1、可不可以在打开后自动运行宏？因为在我打开后不去按这个按钮是没有效果的
2、如果在打开的时候人家禁止宏怎么办？

如此图运行宏按钮

doitbest · 发表于 2012-8-10 15:18

事件宏选择后触发，就不用打开后自动运行了，多此一举

panhuayo · 发表于 2012-8-13 09:56

doitbest 发表于 2012-8-10 15:18
事件宏选择后触发，就不用打开后自动运行了，多此一举

老师，本人水平有限请问如何触发啊 ^_^

peter-chen · 发表于 2012-8-24 14:25

very good, thanks, study

猪猪8282 · 发表于 2013-5-17 09:23

学习了

yfc0797 · 发表于 2013-10-25 14:12

我的代码贴上去无法运行，提示运行时错误‘5’，无效的过程调用或参数，什么原因啊

贾芳默 · 发表于 2014-2-27 11:44

doitbest 发表于 2011-11-11 15:11
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.Cu ...

您好，我是新人，请问您这段语句，要加楼主语句的哪个位置上啊，在thisworkbook模块中加入此事件宏，这句话不懂，能给讲讲吗，谢谢！

jwyjfd007 · 发表于 2014-5-29 16:21

如果禁用宏呢?

		自动登录	找回密码
密码			免费注册

[求助] 怎么才能让工作表禁止复制粘贴功能啊？

评分