Excel宏病毒专杀防疫工具V5.0

lw2294 · 发表于 2013-1-21 19:26

谢谢校长！！！要是早点看到就好了，我的函初成绩就能回来了

ljweb · 发表于 2013-1-23 15:27

这个怎么用的呀？

jenny.deng · 发表于 2013-1-23 15:31

谢谢，问题解决了

lannanyi · 发表于 2013-2-21 17:32

怎么用的啊，杀不了啊。

sanlt · 发表于 2013-2-23 11:04

真的好用哦。。。。。。。。。谢谢谢谢

1032446692 · 发表于 2013-4-2 21:25

谢谢兰版非常有用

zhangpf6350399 · 发表于 2013-4-13 17:24

offic

opelwang · 发表于 2013-5-7 12:18

本帖最后由 opelwang 于 2013-5-7 12:54 编辑

感谢兰版分享，有个建议：
感染了StrartUp病毒的工作薄，每保存一次会生成一个命名为：StrartUP命名的工作表，且是隐藏的。
这个工具是删除以StrartUP的模块，并没有删除这些感染的工作表的动作。
以下是原代码，可否帮忙修正一下：删除以StrartpUP模块的同时，也删除以StrartUP开头的工作表。谢谢。

Sub delstrartup(wbb As Workbook) '发现和删除含有宏病毒的模块

On Error GoTo 100

Dim x, tem, shname As String

For x = 1 Towbb.Sheets.Count

If TypeName(wbb.Sheets(x))= "Module" Then

shname = Sheets(x).Name

If MsgBox("发现模块"& shname & "含有疑似宏病毒的代码" & Chr(10) & "确定要删除该模块吗?",16 + vbYesNo, "宏病毒代码警告") = vbYes Then

Application.DisplayAlerts = False

wbb.Sheets(x).Delete'删除病毒代码

Application.DisplayAlerts= False

wbb.Save'保存当前文件

MsgBox "已删除"& shname & "病毒", vbOKOnly + 64, "安全提示"

Exit Sub

End If

Next x

100

End Sub

symbolgg · 发表于 2013-6-6 11:23

谢谢

123056680 · 发表于 2013-6-8 23:27

好东西，支持

		自动登录	找回密码
密码			注册

[分享] Excel宏病毒专杀防疫工具V5.0