这是宏病毒，可以用360、瑞星、金山等杀毒软件清除。如果还是不行，手动清除。StartUp.xls宏病毒清除方法新建一个Excel文件，按alt+f11调出VBA代码窗口，新建VBA模块，输入以下代码，关闭后再打开excel文件一次，彻底清除电脑中的StartUp病毒。Sub auto_open()Dim FS As ObjectDim BK As WorkbookDim SHT As WorksheetDim ifExist As BooleanOn Error Resume Next'判断是否存在StartUp,以ifExist标记ifExist = FalseIf Dir(Application.StartupPath & "\" & "StartUp.xls") <> "" Then ifExist = TrueIf ifExist = False Then For Each BK In Workbooks If ifExist Then Exit For For Each SHT In BK.Sheets If ifExist Then Exit For If BK.Sheets("StartUp").Name <> "StartUp" Then ifExist = False Else ifExist = True End If Next SHT Next BKEnd If'判断是否清除StartUpIf ifExist Then If MsgBox("发现StartUp！" & vbCrLf & "StartUp可能影响你的Excel！是否清除？", vbOKCancel) = vbCancel Then Exit SubElse MsgBox "未发现StartUp,自动退出" ThisWorkbook.Close Exit SubEnd If'关闭StartUp.xlsWorkbooks("StartUp.xls").Close False'删除文件Set FS = CreateObject("Scripting.FileSystemObject")FS.DeleteFile Application.StartupPath & "\" & "StartUp.xls"'删除宏模块StartUpApplication.DisplayAlerts = FalseFor Each BK In Workbooks BK.Sheets("StartUp").DeleteNext BKApplication.DisplayAlerts = True'恢复变量Application.OnSheetActivate = ""Application.OnKey "%{F11}"Application.OnKey "%{F8}"MsgBox "清除StartUp完毕,自动退出！"ThisWorkbook.CloseEnd Sub
