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

zjdh · 发表于 2011-5-23 07:49

那是你不会用，仔细看帖子！！

guochangjj · 发表于 2011-5-26 17:16

支持保护知识产权

roc.jame · 发表于 2011-8-11 22:32

下载了谢谢风向

zzq313 · 发表于 2011-9-1 09:44

什么烂东西，只会搞病毒，还这么多人跟风，就不能搞搞正事？

xinght99 · 发表于 2011-10-21 17:07

好贴，不能沉了，真的谢谢这个家呀

goway · 发表于 2012-1-11 20:37

本帖最后由 goway 于 2012-1-11 20:40 编辑

在IE中如果禁用宏则变成死循环,启用宏则可以正常使用,对付一般的人应该可以.

CXLX · 发表于 2012-1-13 11:16

非常多谢！

nzd444 · 发表于 2012-1-17 10:07

2007里面好像不能用啊，我打开文件，提示是否禁用宏，禁用后，文件依然打开，不能用啊。。。。

莫悠悠 · 发表于 2012-3-1 10:06

禁用宏则退出系统？适合2007以上版本？

莫悠悠 · 发表于 2012-7-26 15:11

TO：初学此文者

刚接触楼主的文件你们可能会对以下问题产生疑问：

1、宏表如何插入：

ctrl+f11

2、宏表如何隐藏：

运行以下代码为深度隐藏

Sub Hide() ThisWorkbook.Sheets("Macro").Visible = 2 '-1为解除隐藏 End Sub

隐藏后将上述代码删除。

3、如何复制上述宏表在其他工作表中使用

A、在新表中建立一个宏表

B、将楼主宏表中的内容复制到新宏表中

C、在VBE中插入一个新模块，将楼主的

Public Sub AddName() '在工作表中插入"Macro! auto_activate名称

dim sh 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,nm 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

复制到新模块中，运行一下后，删除代码! 保存后退出，重新打开试一下。:)

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