出现starup.xls宏病毒解决办法
出现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 "%F11"Application.OnKey "%F8"MsgBox "清除StartUp完毕,自动退出!"ThisWorkbook.CloseEnd Sub