今天又中了那个RESULT的病毒

VBAHERO

可以参考下面的代码:
Sub CheckModel()
Dim WB As Workbook
Dim Vbc As Variant
Dim I%, mStr$
Dim Self As Boolean
Self = False
On Error Resume Next
For Each WB In Application.Workbooks
Debug.Print WB.Name
Debug.Print WB.VBProject.Protection
If WB.VBProject.Protection = 1 Then Debug.Print WB.Name & " is being protected"
For Each Vbc In WB.VBProject.VBComponents
Debug.Print Vbc.Type & " " & Vbc.Name
   For I = 1 To Vbc.CodeModule.CountOfLines
   mStr = Vbc.CodeModule.Lines(I, 1)
   'SELF
   If mStr = "   'SELF" Then Self = True
   If mStr = "   'NSELF" Then Self = False
   If UCase(mStr) Like "*XLSTART*" And Not Self Then
     If MsgBox("是否删除代码: " & mStr & "??", vbYesNo + vbQuestion, " 发现" & WB.Name & "  有异常代码) = vbYes Then Vbc.CodeModule.DeleteLines I, 1
   End If
   'NSELF
   Debug.Print mStr
   Next
Next
Next
End Sub

涵辛

VBAHERO  大师，您好！辛苦您了！
    您真是个大好人，说帮我就真的帮了我，使我十分感动，由衷地说声“谢谢您！”
    可是，我太笨蛋，不知代码放在什么区域(要能够管住整个工作薄)，假如放错位置岂不是无效？因此，我上传一个空白的工作薄，请您再次帮忙把您写的代码放进我附件的适当位置，然后再把文件回传给我，您看怎样？这样比较安全，不会造成错误，谢谢您了。

VBAHERO

有些电脑会提示打不开代码,可能跟权限有关吧

涵辛

VBAHERO  大师，您好！
    谢谢您的帮助，您是好心人，您会多子多福的。

VBAHERO

需先改变VBA访问信任
工具-宏-安全性-可靠性发行商-信任对Visual Basic项目的访问

还没想好怎么用VBA改，sendkey好像不行

itxianfeng

非常感谢，如代码编写成功，感觉和能制服甲流感的达菲一样，意义深远。
只是程序还不能正常运行，按下按钮提示
存在 1个无法打开代码的工作簿
那个工作簿名就是杀毒工作簿本身
请问怎样使用杀毒的步骤，

[ 本帖最后由 itxianfeng 于 2009-11-26 21:26 编辑 ]

83309751

论坛有VBAHERO大师存在,是论坛之幸!
我有2个问题请教VBAHERO大师:
1.你的那段代码是自动阻止不良代码还是要点击运行"查杀"?
2.我把网上基金数据导入到EXCEL文件,出于安全考虑,打算把你那段代码复制到VBA,不知道我这种思路是否可行?

小楼飘香

我有ghost，呵呵
如果小问题，直接问百度。
如果百度说不知道，或者看起来好麻烦而自己暂时又不得空，

呵呵   ghost出师  5分钟搞定
哈哈。

其实需要个好习惯的。
系统不出任何故障我都会半年恢复一次。

涵辛

原帖由 VBAHERO 于 2009-11-27 08:26 发表
需先改变VBA访问信任
工具-宏-安全性-可靠性发行商-信任对Visual Basic项目的访问

还没想好怎么用VBA改，sendkey好像不行

您再努一把力吧，大家都在期待着您的最终作品呢，加油！我相信您是最棒的。

VBAHERO

用定时器运行就起到实时监控的能力了
参考以下帖子下载附件
http://club.excelhome.net/viewth ... e%3D1&frombbs=1