1、打开资源管理器，定位到C:\Documents and Settings\administrator\Application 肛舀辨乔Data\Microsoft\Excel\XLSTART之下，如果发现StartUp.xls文件，手动删除，删除之后还要清空回收站（注意：路径中的administrator是计算机系统为命名时候的默认名字，如果自己的电脑重命名过则需要改成自己电脑的名字，可以通过查看计算机的属性获得）
3、打开资源管理器或者我的电脑，定位到c:\Documents and Settings\administrator\Application 肛舀辨乔Data\Microsoft\Excel\XLSTART，右击空白处，弹出的命令中选择新建，新建菜单中选择文本文档，然后复制好以下的代码粘贴到新建的文本文档中去Sub auto_open()On Error Resume NextApplication.ScreenUpdating = FalseActiveWindow.Visible = Falsen$ = ActiveWorkbook.NameWorkbooks(n$).Close (False)Application.OnSheetActivate = "StartUp.xls!cop"End SubSub cop()On Error Resume NextDim VBC As ObjectDim Name As StringDim delComponent As VBComponentName = "StartUp"For Each book In WorkbooksSet delComponent = book.VBProject.VBComponents(Name)book.VBProject.VBComponents.Remove delComponentNextEnd Sub
