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

lrest · 发表于 2004-11-9 21:41

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

eV7W2qTP.rar (4.6 KB, 下载次数: 3879)

[此贴子已经被作者于2004-11-10 10:59:45编辑过]

老刀 · 发表于 2004-11-9 23:27

鼓掌！！！

wuxingch · 发表于 2004-11-10 06:38

能否讲下，怎么弄的？我也需要

张振林 · 发表于 2004-11-10 07:01

如何将您的宏文件引到其他的工作簿内，谢谢！

第三杯茶 · 发表于 2004-11-10 08:25

代码是如何弄的呢?

lrest · 发表于 2004-11-10 09:43

Q：代码如何弄的呢?

A：其实工作原理是在激活每一个工作表时，调用宏表函数检测用户是否禁用VBA宏。如果禁用则关闭程序，否则继续。我是在老刀的基础上增加错误捕捉，就是说程序能识别错误的类型，根据其类型引导程序如何做。所涉及的语句为 XLM 4.0 FUNCTION。

Q：如何引到其他工作薄?

A：首先在你的工作薄中插入4.0宏表(可在网上搜索如何插入4.0宏表的贴子),然后把 MACRO工作表中的内容原样复制刚插入的工作薄中。在thisworkbook的Workbook_NewSheet事件中插入以下代码：

功能：自动在新增的工作表中插入名称

Private Sub Workbook_NewSheet(ByVal Sh As Object)

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

end sub

其次：在模块中插入以下代码：

功能：自动扫描已有的工作表，检测是否已插入名称，如果没有则自动增加

Public Sub AddName() For Each Sh In ActiveWorkbook.Sheets If Not ChkName(Sh.Name) Then ActiveWorkbook.Names.Add Name:=Sh.Name & "!auto_activate", RefersToR1C1:= _ "=Macro!R1C1" End If Next End Sub

Function ChkName(ByVal Sh As String) As Boolean Dim Ck As Boolean For Each nm In ActiveWorkbook.Names If InStr(UCase(nm.Name), UCase(Sh)) > 0 Then Ck = True Exit For End If Next ChkName = Ck End Function

运行 AddName宏。

注意：在提交用户时别忘了，隐藏宏表（MACRO）。

[此贴子已经被作者于2004-11-10 10:52:16编辑过]

守柔 · 发表于 2004-11-10 10:47

我试过二次，好象不行。看了一下代码，感觉有些问题。

请楼主重新测试一下，如果我下SHIFT键方式打开该文档（我的电脑中不能设置安全性，只为低），是否能在激活另一张工作表时退出？

该宏在何处？"NoRunMacro"?

定义名称指向的是:=Macro!$A$1,但此单元格中空无一物?是否也要在OPEN和BEFORECLOSE时写一下数据?

老刀 · 发表于 2004-11-10 11:31

所见的 4.0 帮助都没有 ERROR.TYPE，我想是 ERROR.TYPE 没运行宏和没有宏返回的数值不一样.

[此贴子已经被作者于2004-11-10 11:36:28编辑过]

lrest · 发表于 2004-11-10 11:33

to 守柔

Q：我试过二次，好象不行。看了一下代码，感觉有些问题。

A：我已测试多次(win2000+officeXp中文版)，代码是正确的。

Q:：请楼主重新测试一下，如果我下SHIFT键方式打开该文档（我的电脑中不能设置安全性，只为低），是否能在激活另一张工作表时退出？

A:：因为每个工作表，都写入了 auto_activate 名称事件，所以每激活一个工作表，程序都会检查是否禁用宏。至于SHIFT键的问题，我调试时发现按住SHIFT键打开工作薄时如果第一个激活的是 macro宏表，则macro!auto_activate事件被忽略但当你激活其他的工作表时，auto_activate事件仍会生效。解决其实很简单，你只需隐藏macro宏表(呵呵,在发布软件时你一定会隐藏的)。

Q：该宏在何处？"NoRunMacro"?

A："NoRunMacro" 此宏只是一个虚拟函数,为后面的错误捕捉埋下一个伏笔而已,可以将其改为任一函数名。

Q：定义名称指向的是:=Macro!$A$1,但此单元格中空无一物?是否也要在OPEN和BEFORECLOSE时写一下数据?

A：XLM FUNCTION的工作原理是，当函数指向的单元格为空，它会顺序的执行下一行语句。所以你当然可以将第一行删除。 Open和BEFORECLOSE 无需写入任何数据。此函数与VBA代码完全脱离。

总结要点： 1、每个工作表必须写入 Auto_activate 名称。（按我上节提到的方法操作即可) 2、Macro 宏表必须隐藏。

[此贴子已经被作者于2004-11-10 13:09:28编辑过]

lrest · 发表于 2004-11-10 11:52

to 老刀：

对 ERROR.TYPE 函数，我是在MSN中查到的，当没有宏时 ERROR.TYPE返回值3,而禁用宏时返回值为4。

[此贴子已经被作者于2004-11-10 13:12:23编辑过]

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

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

最新热点 /1