引用  

    打开EXCEL时会弹出一个窗口，告知用户该工作簿中有一个无法禁止的4.0宏，有可能这个工作簿中存在宏病毒。

     先简单说一下这个宏病毒的原理，它由两部分组合，一部分是利用EXCEL2003版及以下版本的缺陷，即无法禁止EXCEL4.0宏，来迫使用户“启用宏”，然后通过ToDOLE模块中的VBA代码执行病毒程序（有的在ThisWorkbook模块中也出现自动运行的宏病毒代码）

——————————显示隐藏的表————————————

Sub 显示隐藏的表()
    Dim i As Integer
    For i = 1 To Sheets.Count
        Sheets(i).Visible = True
    Next
End Sub

——————————禁用宏就关闭————————————

Sub abc()
'运行前先打开这个有"禁用宏就关闭"的工作簿
t = InputBox("输入工作簿名称*.xls")
Set a = Workbooks(t)
a.Activate
'显示宏工作表
s = 0
For Each sh In Excel4MacroSheets
sh.Visible = 1 '显示宏表
sh.Delete '删除
s = s + 1
Next
MsgBox "删除了" & s & "个宏表"
'删除各表中的自动运行"名称"
On Error Resume Next
For i = 1 To Sheets.Count
Sheets(i).Names("Auto_Activate").Delete
Next
MsgBox "完毕,请保存这个工作簿"
End Sub