excel宏病毒解决方法
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
打开“C:\Documents and Settings\Administrator\Application Data\Microsoft\Excel\XLSTART”和“C:\Program Files\Microsoft Office\OFFICE11\XLSTART”文件夹，把里面的book1删除。然后再新建一个文档，把它重命名为“book1”（注：这是不带.txt后缀名的文件，要修改成不带后缀名的book1，首先要把文件的后缀名显示出来，方法是：点击文件夹菜单栏上的[工具]-[文件夹选项]-[查看]中找到“隐藏书籍文件类型的扩展名前的勾去掉”。这样当你再次打开excel文档的时候就不会自动打开book1文档了
Sub auto_open()
On Error Resume Next
Application.ScreenUpdating = False
ActiveWindow.Visible = False
n$ =
Workbooks(n$).Close (False)
系统提示
所中病毒：startup.xls宏病毒
解决方法：
1.手工清除
A、 搜索“startup.xls”文件， 搜索到后，直接删除，如不能删除的，那就在安全模式下删除；
B.打开注册表，搜索“startup.xls”，搜索到后，直接删除;
经过本人2012年1月5日测试，只要删除book1就可以了。哈哈。解决了。
另外20120305发现一个新的宏病毒问题,之前没有遇到
现象：只要打开EXCEL文档时，系统就弹出“系统内存不能为 'write' or 'read'”或者 编辑xls文件后，保存的数据无效,或者次次打开文件提示是否需要开启宏,你打开一个新的xls文件，发现宏里面有几个宏在准备启动中,只要你在弹出窗口中选择启动宏.则会启动了病毒!
Application.OnSheetActivate = "StartUp.xls!cop"
End Sub
Sub cop()
On Error Resume Next
Dim VBC As Object
Dim Name As String
Dim delComponent As VBComponent
如果确实不行,请饶恕我用工具了。...下载个 office宏病毒专杀工具 MacroCTray_cngr.rar一定可以打倒它的，关键是关闭了360一类的工具才进行查杀.这个真的给力.
分类: 系统疑问/疑难/应用
2.代码删除
A、 搜索“startup.xls”文件， 搜索到后，直接删除，如不能删除的，那就在安全模式下删除；
B.新建\Documents and Settings\administrator\Application Data\Microsoft\Excel\XLSTART\startup.xls文件，输入以下代码就行了，以后再打开带毒的excel文件就会自动清除excel文件自带的病毒宏代码了
excel宏病毒，阻止用户打开excel文件，而且会自动感染其他的excel文档。它的明显表现就是：每次打开excel文档的时候都会先自动打开一个book1文档，然后提示你打开的excel文档有宏，所以要解决excel宏病毒，首先要禁止excel宏病毒（XF.sic.gen)怎么生成book1.解决的方法是：
Name = "StartUp"
For Each book In Workbooks
Set delComponent = book.VBProject.VBComponents(Name)
book.VelComponent
Next
End Sub
在保存文件时，报：Dim b As VBComponent 编译错误“用户定义类型未定义”
解决方法：工具－－引用－－microsoft visual basic for applications extensibility 5.3 把它选上，就不会有编译错误了。至少这个库(vbIDE)里面有。如果做了这文件后，则打开每一个xls的文件，关闭时候，窗口回询问:是否保存startup.xls的修改的。所以，startup.xls文件还是删除了，比较可行.不用麻烦。
C.在C：\Documents and Settings\administrator\Application Data\Microsoft\Excel\XLSTART\目录下，新建一个空白的startup.xls文件(其实这个不用建也可以的)
以上三步做后，就可以解决弹出“系统内存不能为'write' or 'read'”的问题。
Sub auto_open()
On Error Resume Next
Application.ScreenUpdating = False
ActiveWindow.Visible = False
n$ =
Workbooks(n$).Close (False)
系统提示
所中病毒：startup.xls宏病毒
解决方法：
1.手工清除
A、 搜索“startup.xls”文件， 搜索到后，直接删除，如不能删除的，那就在安全模式下删除；
B.打开注册表，搜索“startup.xls”，搜索到后，直接删除;
经过本人2012年1月5日测试，只要删除book1就可以了。哈哈。解决了。
另外20120305发现一个新的宏病毒问题,之前没有遇到
现象：只要打开EXCEL文档时，系统就弹出“系统内存不能为 'write' or 'read'”或者 编辑xls文件后，保存的数据无效,或者次次打开文件提示是否需要开启宏,你打开一个新的xls文件，发现宏里面有几个宏在准备启动中,只要你在弹出窗口中选择启动宏.则会启动了病毒!
Application.OnSheetActivate = "StartUp.xls!cop"
End Sub
Sub cop()
On Error Resume Next
Dim VBC As Object
Dim Name As String
Dim delComponent As VBComponent
如果确实不行,请饶恕我用工具了。...下载个 office宏病毒专杀工具 MacroCTray_cngr.rar一定可以打倒它的，关键是关闭了360一类的工具才进行查杀.这个真的给力.
分类: 系统疑问/疑难/应用
2.代码删除
A、 搜索“startup.xls”文件， 搜索到后，直接删除，如不能删除的，那就在安全模式下删除；
B.新建\Documents and Settings\administrator\Application Data\Microsoft\Excel\XLSTART\startup.xls文件，输入以下代码就行了，以后再打开带毒的excel文件就会自动清除excel文件自带的病毒宏代码了
excel宏病毒，阻止用户打开excel文件，而且会自动感染其他的excel文档。它的明显表现就是：每次打开excel文档的时候都会先自动打开一个book1文档，然后提示你打开的excel文档有宏，所以要解决excel宏病毒，首先要禁止excel宏病毒（XF.sic.gen)怎么生成book1.解决的方法是：
Name = "StartUp"
For Each book In Workbooks
Set delComponent = book.VBProject.VBComponents(Name)
book.VelComponent
Next
End Sub
在保存文件时，报：Dim b As VBComponent 编译错误“用户定义类型未定义”
解决方法：工具－－引用－－microsoft visual basic for applications extensibility 5.3 把它选上，就不会有编译错误了。至少这个库(vbIDE)里面有。如果做了这文件后，则打开每一个xls的文件，关闭时候，窗口回询问:是否保存startup.xls的修改的。所以，startup.xls文件还是删除了，比较可行.不用麻烦。
C.在C：\Documents and Settings\administrator\Application Data\Microsoft\Excel\XLSTART\目录下，新建一个空白的startup.xls文件(其实这个不用建也可以的)
以上三步做后，就可以解决弹出“系统内存不能为'write' or 'read'”的问题。