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