求教高手该代码运行为什么会出现“用户定义类型未定义”编译错误,如何解决?多谢
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