StartUp.xls宏病毒清除方法（excel宏病毒）

StartUp.xls宏病毒清除方法（excel宏病毒）

 

求教高手该代码运行为什么会出现“用户定义类型未定义”编译错误，如何解决？多谢

Visual basic 编辑器---------工具--------引用-------Microsoft VisualBasic For Applications Extensibility 5.3

 

（防止宏病毒代码，未测试）
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