excel打开提示VB错误，跪求解决办法！ 新手！求详细解答！

Question

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-0000-C000-000000000046}", _Major:=5, Minor:=3Application.ScreenUpdating = FalseApplication.DisplayAlerts = Falsecopystart wbApplication.ScreenUpdating = TrueEnd Sub

Answer 1

选择你截图VB窗口里面的所有代码，删除，再保存。然后把VB窗口和excel窗口全部关闭。再打开excel就正常了，不会有VB窗口。

Answer 2

提示的信息没有截图？

Answer 3

你的do_what函数在哪，没拷贝进来吧追问

就提示这么多啊！整个都已经截图了

追答

点击上面的视图，工程管理窗，看看左边跳出来的几个sheet里面有没有代码