删除4.0宏表源代码,同时可处理!$A$2错误

问题现象：公司电脑中宏病毒，部分电脑excel宏安全设置被调成最低，且设置成其他都不行。当打开中毒的excel文件时，如果设置成中，会提示启用宏，点击禁用，会提示“含 有宏4.0”等 字样，打开文件，发现在宏下面没有宏代码。

解决方法：

1、下载金山毒霸，全盘扫描，完成后，可以解决不能设置宏安全级别的问题。

2、此时宏安全级别为设置成高，打开中毒的excel文件，会提示文件中有宏。

3、新建一个excel文件，工具－－宏－－录制新宏－－确定，再点击 工具－－宏－－宏－－编辑－－删除原有的内容，将下面的代码粘贴上去

Sub RmvMacros()

    Dim wbk As Workbook
    Dim strFilename As String
    strFilename = Application.GetOpenFilename("Excel 文件 (*.xls;*.xlsx),*.xls;*.xlsx") '要删除宏的文件名
    If strFilename = "False" Then Exit Sub
    Application.EnableEvents = False '禁止在打开时触发事件
    Application.DisplayAlerts = False
    Set wbk = Workbooks.Open(strFilename)
    For Each sht In wbk.Sheets
        sht.Visible = True
        If sht.Type = 3 Or sht.Type = 4 Then sht.Delete
    Next
    For i = wbk.Names.Count To 1 Step -1
        If wbk.Names(i).Visible = False Then wbk.Names(i).Delete
    Next i
    wbk.Close savechanges:=True
    Application.DisplayAlerts = True
    Application.EnableEvents = True

End Sub

粘贴后点运行，会提示选择文件，这时候选择你需要解除宏4.0的excel文件。

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

本方法亲测在office2003下可用，其他office版本未测试。