VBA 之不良代码查杀及防火墙

VBAHERO · 发表于 2010-4-15 15:55

我测试不出什么问题，要不你自己调试一下吧
把代码改成：
Private Sub CheckBox1_Click()
On Error Resume Next
Err.Clear
Debug.Print CheckBox1.Value
If CheckBox1.Value Then FireWallON Else FireWallOFF
If Err.Number <> 0 Then Debug.Print Err.Description: Exit Sub
End Sub

在sheet页面点击checkbox1两次，看立即窗口显示什么内容

bjjgq · 发表于 2010-5-1 20:50

太棒了,谢谢

fsydw · 发表于 2010-5-1 22:50

收藏备用！谢谢大师！！

Fangfangyy · 发表于 2010-7-12 15:31

今天我的文件也出现了这种恶意代码，我在移除模块后，使用了该程序。但是在VBE窗口下，仍显示有results.xls文件和一个工作表，不知道此处应怎样删除呢？

Fangfangyy · 发表于 2010-7-12 15:36

我根据网上的提示，找到了xlstart文件夹，但是里面是空的，其他地方的意思是results.xls文件会存放在此文件夹内，请高手解惑，谢谢！

VBAHERO · 发表于 2010-7-15 20:23

将Xla放在Xlstart文件夹下，Excel启动时就会运行
程序里面的"强行拍杀"点击后，程序会先退出，然后删除已经运行的xla文件

zjj260 · 发表于 2010-12-7 18:31

请问大侠有没有升级版，非常感谢您的软件！！！

顶起，此贴必火

蓝天云朵 · 发表于 2011-7-16 18:54

好东西，谢谢楼主分享

coolraywang · 发表于 2012-8-18 14:37

感谢楼主VBAHERO，人如其名，不愧为VBA英雄！刚好遇到这个病毒，下载后运行，清除成功！{:soso_e179:}

蜀之南 · 发表于 2018-8-11 10:55

好东西，用LZ的文件查杀了，谢谢

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

[原创] VBA 之不良代码查杀及防火墙

顶起