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

taller

我的英文版本win2000+off2000功能正常

sailorgg

谢谢楼主，我在win98+officeXP测试正常。

守柔

我明白了，这与老刀兄的大著不同之处即在于此，好！

ERROR.TYPE中的宏是可能是指宏安全级别,如果是低,当然不执行了该过程了.所以即使按下SHIFT键,也无所谓.而老刀兄的大作中,如果按下SHIFT,则OPEN事件不发生作用,仍然会起作用,一旦有激活事件,就会触发4.0宏.

shangyu

做得好！

username

不知道以下的代码都放哪了,我怎么都找不到呀.谢谢

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

wuxingch

请问版主，程序放在哪里的？怎么我找不到呀？

请指点

xiaog

XP＋XP，一切正常。

lrest

to username，wuxingch

你们所说的程序代码并不包含在上传的文件,我是应其他网友的需要后来才写的，你先看一下我写的函数功能说明然后自己插入即可。

wuxingch

请问，工作表中，还有个隐藏工作薄Macro

这是，什么代码？是不是，就是通过这个隐藏的

还有，这个工作薄在visual basic编辑器中看不到，为什么？？？

cy2MfwCt.rar (10.13 KB, 下载次数: 254)

2004-11-11 06:44 上传

点击文件名下载附件

[此贴子已经被作者于2004-11-11 6:41:32编辑过]

lrest

to wxaingch

对就是通过 macro宏表实现禁用宏则退出的效果,采用程序语言为 XLM4.0 function language ，我所上传的文件为了方便大家并没有隐藏此表，在正式发布时你们必须将其隐藏，因它是4.0宏表，所以在 visual basic 编辑器中是看不到的。