StartUp.xls宏病毒清除方法
第一步：清除C:\Documents and Settings\administrator\Application Data\Microsoft\Excel\XLSTART下的StartUp.xls；
第二步：清除C:\Documents and Settings\administrator\Application Data\Microsoft\Excel\的Excel11.exe(约236K)，Excel程序会自建该文件。
第三步：新建\Documents and Settings\administrator\Application Data\Microsoft\Excel\XLSTART\startup.xls文件，输入以下代码就行了，以后再打开带毒的
excel文件就会自动清除excel文件自带的病毒宏代码了
Sub auto_open()
On Error Resume Next
Application.ScreenUpdating = False
ActiveWindow.Visible = False
n$ = ActiveWorkbook.Name
Workbooks(n$).Close (False)
Application.OnSheetActivate = "StartUp.xls!cop"
End Sub
Sub cop()
On Error Resume Next
Dim VBC As Object
Dim Name As String
Dim delComponent As VBComponent
Name = "StartUp"
For Each book In Workbooks
Set delComponent = book.VBProject.VBComponents(Name)
book.VBProject.VBComponents.Remove delComponent
Next
End Sub
%USERPROFILE%
del /y %USERPROFILE%\"Application Data"\Microsoft\Excel\XLSTART\Startup.xls
del /y %USERPROFILE%\"Application Data"\Microsoft\Excel\XLSTART\Excel11.exe
本文转自孤舟夜航之家博客51CTO博客，原文链接http://blog.51cto.com/cysky/1058594如需转载请自行联系原作者
cysky
