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

tianxialaosan

用WPS Office 2009打开，可以看到MACRO宏表，删除此宏表，保存，一切game over！

我哭我哭我哭哭！

怎么办，办各版主及高手们？？？？

xloyo

这个是个好东东,下载了.

szczs

非常感谢

china047

有没有哪位版主做个2007的啊

china047

有没有哪位版主做个2007的啊

martingm

总算在2003测试成功：
Public Sub AddName()  '在工作表中插入"Macro! auto_activate名称
    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

elitaemma

2007模式下打开文件没有限制,但会有提示框出现提示宏未启动....

whoup

这个对于Excel 2010怎么没有一点做用呢

18zhangyong

弄不懂是怎么搞得出来的，我想复制那个有字母的表复制不了？？？

wushaohua

这个要一定学习