出现starup.xls宏病毒的解决方法：关闭所有表格，打开一个新表按alt+F11键，按F7键在窗口内粘贴下列内容。然后关闭。以下是需要粘贴的内容从此行及以上不要粘贴。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 %F11Application.OnKey %F8MsgBox 清除StartUp完毕,自动退出！ThisWorkbook.CloseEnd Sub