利用Excel插件做宏病毒监控V2.93(For_2003~2010)

baomaboy · 发表于 2012-12-26 19:36

sdraaa 发表于 2012-12-26 16:58
2000 安装了怎么报错……

没在2000上装过，你试试卸载后还出此问题吗？多安装卸载两次先排除是否本程序造成的。

tdrz · 发表于 2012-12-27 09:20

太好，我们中国有如此猛人，厉害！

baomaboy · 发表于 2012-12-29 12:39

'-------------201212291233
更新到V2.85为减小体积不在使用AddInsManage.exe外置程序，加载项管理集成在DLL中(缺点是：插入excel.exe中运行会造成部分加载项列表删除不尽)

大中国风 · 发表于 2012-12-30 23:18

感谢各位老师和大侠热情的帮助，谢谢你们！！！！！！！！

莫悠悠 · 发表于 2013-1-7 23:44

谢谢分享，学习了！！

baomaboy · 发表于 2013-1-13 15:31

本帖最后由 baomaboy 于 2013-1-25 16:29 编辑

1、恢复Word
功能：修复Microsoft office Word 遇到问题需要关闭，重启必须以安全模式启动的问题。
2、恢复Excel
功能：恢复excel被屏蔽的菜单、热键、功能区选项卡；修复VBE导入窗体出现类未注册的错误；修复Excel一直高安全不启动宏错误；修复对象库无效或包含不能找到的对象定义的引用；修复您计算机上的某个程序已损坏了您对Internet Explorer默认搜索提供程序的设置错误。
3、屏蔽菜单
功能：为了测试恢复Excel功能能而设置，实现对Excel菜单、热键、功能区选项卡的屏蔽。使用后记得使用快捷键：Ctrl+Alt+Shift+E来解锁啊。
4、秒杀表格密码
功能：秒杀工作表密码，如果出现输入密码窗口一定要点“取消”。
5、遍历密码
功能：解除当前工作簿密码并遍历解除工作表密码。
6、共享密码
功能：解除工作簿共享密码。
7、显示工作簿
功能：显示所有当前被打开但被隐藏窗口的工作簿(加载宏也会被显示)窗口。
8、显示工作表
功能：显示当前活动工作簿内所有被隐藏的工作表(包含宏表)。
9、显示表格内容
功能：显示工作表内容包括：网格线、滚动条、行号列标、以及被特殊技巧隐藏的表标签、行列栏、窗口冻结、字体颜色。
10、秒杀工程密码
功能：HookAPI方式无损解VBA工程密码。
11、加密工程密码
功能：加密VBA工程，他人查看时提示“工程不可查看”。
12、解密工程密码
功能：解密VBA工程，取消“工程不可查看”状态。
13、病毒监控
功能：启动即查杀恶意模板，可自定义病毒库。
14、管理加载项
功能：查看、删除Excel本身的加载项。
15、管理名称
功能：将被恶意隐藏的名称如：Auto_open等危险名称显示出来并选择是否删除全部名称。
16、经典怀旧菜单
功能：在Excel2007-2010版上方便熟悉2003版的人使用经典老菜单样式。
17、双启动菜单
功能：在xls文件右键添加新建菜单，可在右键菜单中随意选择启动版本。
18、默认启动
功能：方便的为xls文件转换2003或者2010为默认打开(双击打开)的功能。
19、自我修复
功能：按快捷键提示找不到宏时点此按钮自动修复(自动加载本程序到excel)。
20、取机器码
功能：取得机器码并复制到剪贴板可以申请注册码。
21、列出所有图标
功能：显示Excel内置图标及ID(注：2010版显示在“开发工具”选项卡中)。
22、代码缩进排版
功能：增加代码可读性，并可选择是否规范关键字大小写。
23、代码高亮着色
功能：论坛发帖专用，增加代码可读性。
24、代码精简去冗余
功能：用于代码封装发布时精简体积，可以：删除注释、删除缩进、删除空行、删除无用的常量。
25、人体节律图
功能：每日显示你当天的身体状态(情绪、智力、体力)。

baomaboy · 发表于 2013-1-13 16:27

本帖最后由 baomaboy 于 2013-1-13 16:29 编辑

原始代码

代码:

' VBS代码着色演示 - by baomaboy

' 出现这个演示说明你没有选择网页文本或者剪贴板中无数据，
' 请确认你选择了网页文本或者你的剪贴板中读取了VBS代码后再次操作。
' 如下为演示代码：

coNst GHND = &H42
dIm A,B
suB Test()
A = 89
B = 136
IF A > 100 and B > 100 thEn'(此处注释)这只是一个例子！
MSgbox"全部及格！"
ElsE
msgbOx"不能通过！"
End iF
End sub

缩进排版高亮着色代码，并使用了规范关键字大小写。

代码:

' VBS代码着色演示 - by baomaboy

' 出现这个演示说明你没有选择网页文本或者剪贴板中无数据，
' 请确认你选择了网页文本或者你的剪贴板中读取了VBS代码后再次操作。
' 如下为演示代码：

Const GHND = &H42
Dim A, B
Sub Test()
A = 89
B = 136
If A > 100 And B > 100 Then'(此处注释)这只是一个例子！
MsgBox"全部及格！"
Else
MsgBox"不能通过！"
End If
End Sub

精简去冗余后代码

代码:

Dim A,B
Sub Test()
A = 89
B = 136
If A > 100 And B > 100 Then
MsgBox"全部及格！"
Else
MsgBox"不能通过！"
End If
End Sub

baomaboy · 发表于 2013-1-15 12:59

本帖最后由 baomaboy 于 2013-1-15 13:02 编辑

1、文件与UUE格式转换(用于以文本方式发布任意格式的文件，不过仅限于小文件)

代码:

'示例：文件与UUE格式转换
Public Declare Function UUEncode Lib "LLKJ" (ByVal intFile As Variant, Optional outFile As Variant) As Boolean '转换为UUE格式
Public Declare Function UUDecode Lib "LLKJ" (ByVal intFile As Variant, Optional outFile As Variant) As Boolean 'UUE格式转换为文件
Sub Test()
MsgBox UUEncode(ThisWorkbook.Path & "\UUE.txt", ThisWorkbook.Path & "\EN_UUE.UUE")
MsgBox UUDecode(ThisWorkbook.Path & "\EN_UUE.UUE", ThisWorkbook.Path & "\UN_UUE.txt")
End Sub

下面的文本即为UUE格式，复制后粘贴到记事本中，保存后将扩展名改为.UUE或者.ZIP或者.RAR即可。

begin 777 UUE.txt
25&AI<R!I<R!A(%1E<W0A````
end

复制代码

shaanxi348 · 发表于 2013-1-24 10:14

果断留名,此贴太火

lzqlaj · 发表于 2013-1-24 11:48

版本有问题，刚2.92，咋显示2.93了?

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

利用Excel插件做宏病毒监控V2.93(For_2003~2010)

Excel插件辅助工具介绍

代码处理功能演示

其他工具：1.文件与UUE格式转换