处理中了宏病毒的办法

EXCEL-YQ

最近我在论坛上和朋友那里发现几年不曾作恶的宏病毒又开始有点泛滥了。
我们普通的用户都知道，这宏病毒是很可恶的。
通过这几次对宏病毒的处理，我也总结了一下，所以下面给大家介绍几个预防处理的小技巧
1、首先我们怎么去判断是否中了宏病毒

查看C:\Documents and Settings\Administrator\Application Data\Microsoft\Excel\XLSTART文件下是否有不知名的Excel文件。
这个是系统盘下的，中间的Administrator是用户名，根据自己电脑的情况而定。还有查看Office安装目录下的XLSTART文件夹下是否有不知名的Excel文件。如果有的话，那么恭喜你中招了。没有的话，那么就相安无事。

2、预防

我们该怎么去预防叻？首先把宏的安全性设置为中级，
03版的：工具---宏---安全性---中---确定
07、10版的：文件--选项---信任中心---信任中心设置---宏设置---禁止所有宏，并发出通知(D)
把这些设置好后，当人家传给你Excel文件或者网上下载的打开的时候看看是否有启用宏提示，如果有，那么先别急着启用，最好是禁止，Alt+F11打开VBE看看你们的代码安全与否，如果看不懂，那么看看有没有其他不是你自己打开的工作簿或者有没有Sub Auto_Open()过程。
如果有不是自己打开的工作簿，那么就要小心了，很有可能该文件带有宏病毒，如果有Sub Auto_Open()过程这个就要看看里面的代码有没有workbooks.Add、Application.StartupPath之类的，如果有那么也要小心。这类文件最好不要启用宏，你只要工作表中的数据便是，可以用最笨的方法，自己新建个工作簿，然后一张表一张表的把内容复制进去。

3、处理

（1）、自己手动删除
（2）、在网上找个杀宏病毒的程序（有些效果可能并不是很好，本人从来没有用过）
（3）、找人
（4）、下载WPS免费版的，一个一个的打开中了宏病毒的文件（傻瓜式办法，这并不是说不会处理的是傻瓜哈，只是说是不用考虑的办法）
这第4种办法有个好处是杀得干净，也有个弊端就是不是宏病毒的程序同样会被杀掉。没有用VBA的是最好的办法。
注意：随时都要删除Excel程序启动文件夹中的工作簿。
大多都是由宏病毒新建了一个工作簿放在Excel程序启动文件夹中，而这个新建的工作簿都是隐藏了的。
用个循环取消隐藏便是

1. Sub Vis()
   
2. Dim i%
   
3. For i = 1 To Excel.Windows.Count
   
4. Excel.Windows.Item(i).Visible = True
   
5. Next
   
6. End Sub

复制代码

这样就可以看到新建的那个工作簿了。
而新建的工作簿又会有宏表，当然在中了宏病毒后，你打开过的所有excel文件都会有这个宏表，它的主要作用就是：1、网上下载木马；2、恶作剧；3、其他。
这些宏表也都是隐藏了的。要取消这些宏表隐藏，那么还是一样的用个循环，不过我发现有些宏表取消不了。所以就干脆用代码直接删除宏表
Sub DelExcel4()
Dim i
Application.DisplayAlerts = False
On Error Resume Next
For y = 1 To Workbooks.Count
Workbooks(y).Activate
For i = 1 To Sheets.Count
If Sheets(i).Type = xlExcel4MacroSheet Then Sheets(i).Delete
Next i
Next y
Application.DisplayAlerts = True
End Sub

在这里还要注意是否有不是自己定义的名称，在03版中：插入--名称--定义（定义名称对话框中可以看到）；07、10版的在公式---名称管理器中可以看到。有的话，那么毫不客气的删除便是。
删除后就要保存自己需要的工作簿。然后全部关闭包括Excel程序，再打开看看是否有没有了。
注意：这些代码都是放在自己新建的一个工作簿中VBE代码里

当然有些还是比较特殊的。能够找到人帮忙处理是最好的啦。

如果有什么不妥的地方，望指正。

如果有比较好的杀宏病毒程序大家可以分享一下。

mxg825

暂时没有中过。。。先做个记点 备用

禾火亦

多谢提醒

EXCEL-YQ

回复 mxg825 的帖子

因为你是小学4年级。

格子e先生

谢谢分享。
斯诺克老师

无聊的疯子

好东西~~有机会中个宏病毒然后来试试！！

smallfish502

  谢谢楼主

sj5618

这个得顶

liyh67

谢谢楼主分享，以后有幸遇到宏病毒可以拿来试试

yangkeyuan

谢谢分享！