[下载]禁用宏则退出之改进版.(感谢，老刀)

hdiablo · 发表于 2007-1-19 00:57

改进版在Excel 2007下依然无效，

ActiveWorkbook.Names.Add Name:=Sh.Name & "!auto_activate", RefersToR1C1:= _"=Macro!R1C1"

这条语句提示出错

uranus1997 · 发表于 2007-1-20 03:19

QUOTE:

以下是引用hdiablo在2007-1-19 0:57:00的发言：

改进版在Excel 2007下依然无效，

ActiveWorkbook.Names.Add Name:=Sh.Name & "!auto_activate", RefersToR1C1:= _"=Macro!R1C1"

这条语句提示出错

这样我在2003也会出错，改成这样就没有问题了，不知道2007如何

ActiveWorkbook.Names.Add Name:=Sh.Name & "!auto_activate", RefersToR1C1:="=Macro!R1C1"

fanrong88 · 发表于 2007-1-20 08:38

谢谢

xhjok · 发表于 2007-1-20 09:05

学习

cried · 发表于 2007-1-28 11:28

谢谢！

wangby · 发表于 2007-2-21 10:57

QUOTE:

以下是引用uranus1997在2007-1-20 3:19:00的发言：

这样我在2003也会出错，改成这样就没有问题了，不知道2007如何

ActiveWorkbook.Names.Add Name:=Sh.Name & "!auto_activate", RefersToR1C1:="=Macro!R1C1"

前面已有高手回复,需要改为Macro!R2C1这样即可.我已测试2003的确可用。

Cary1018 · 发表于 2007-2-21 21:19

QUOTE:

以下是引用lrest在2004-11-9 21:41:00的发言：

昨日下载了老刀的关于"禁用宏则退出系统"的第二版程序,相对于第一版改进了退出时强制用户存盘.
但感觉仍是稍有欠缺,程序每次激活sheet时,必须先运行 RUNMACRO 宏,如此宏不慎删除,则整个文件被
锁死，俺今天在封装DLL时就很不幸的遇到了此问题,于是下决心将其改进，还好在微软的网站找到了比较完美的解决方法。可以彻底丢掉 RUNMACRO 宏。

在此，向“老刀” 的大公无私至以诚至的谢意！

请楼主在Win XP SP2 + Office 2007 下测试，禁用宏并不会关闭/退出，只不过在工作表间转换进有警示框而已

lwd3212 · 发表于 2007-4-20 00:35

andysky网友写的好，具体，能用。

hhzjxss · 发表于 2007-5-12 13:08

谢谢了，终于知道取消隐藏宏表了！

Sub Hide() '解除隐藏

ThisWorkbook.Sheets("Macro").Visible = -1 '为解除隐藏，2深度隐藏

End Sub

drtom · 发表于 2007-7-26 13:51

如何隐藏MACRO表？

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

[下载]禁用宏则退出之改进版.(感谢，老刀)

最新热点 /1