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

ssasia2008

请问老刀，你写的代码在哪里，小弟找不到

湿衣

项一下啊,好像我没看到宏,只看到一个工作表,是不是这个工作表就代表宏?

goots

值得注意的是，在EXCEL xp 中若使用菜单方式定义名称Auto_Activate，则名称是公有的，不会触发宏！
所以要使用楼主前面的代码定义名称！这样，每个工作表才会有私用的Auto_Activate名称，才会触发宏！

'此模块使用完后可删除
'功能：自动扫描已有的工作表，检测是否已插入名称Auto_Activate，如果没有则自动增加
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!R2C1"
        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("Auto_Activate", UCase(nm.Name)) > 0 Then
        Ck = True
        Exit For
    End If
Next
ChkName = Ck
End Function

楼上两位：只要插入一个宏表，粘贴那些代码，然后按此回复在每个工作表中插入名称就OK了

再次感谢楼主与老刀的无私奉献！！

[ 本帖最后由 goots 于 2009-1-17 15:36 编辑 ]

peter-chen

thnk you for study

逸志

学习才是硬道理。

zhh791123

谢谢 ！！！！！！！！！！！！

zhh791123

谢谢  ！！！！！！！！！！！！！！

ljx63426

学习才是硬道理,多谢了！

wtqzhjb

太麻烦了，我用vbs直接修改他的注册表，实现任何机器均必须起用宏，信任。作成vb下的exe,启动excel,还可以隐藏excel的启动界面，方便。

xjxblqf

多谢，好好学习