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

dsshiqiang

楼主，您好！我已将注册文件导入注册表了，怎么用户名还是“闫龙方”，我该如何操作？非常急！

hyqzzs

感谢楼主分享，已下载

baomaboy

dsshiqiang 发表于 2012-9-20 20:52
楼主，您好！我已将注册文件导入注册表了，怎么用户名还是“闫龙方”，我该如何操作？非常急！

导入注册表之后并不会自动恢复用户名，看1楼提示，有手工更改用户名的步骤。

xiangsy

baomaboy 发表于 2012-9-19 19:10
这个问题每个人的需求不同，无法统一，如果我在工具栏显示的话会有人说我强奸他的工具栏，是一样的道理。 ...

呵呵，谢谢楼主回复，我是想给公司其他同事每台电脑都装，让他们每个人都过来发机器码有点不现实，所以才提出那个建议。我自己用到没所谓。

高绪山

baomaboy 发表于 2011-11-29 09:29
你说以前用正常，而且很多人用都正常，说明工具集应该正常的，可能是你的使用环境有变化。

如果你是03 ...

闫总您好！
    请教一个问题，谢谢！　
　　就是，我想在程序运行出错后，记录下出错的过程或者函数名，以及出错的语句。能否做到？
　　　Rem 错误处理程序
ErrHandler:

iCount9 = Sheets("Error").Range("A" & Rows.Count).End(xlUp).Row
i9 = iCount9 + 1
Sheets("Error").Cells(i9, "A") = Now()
Sheets("Error").Cells(i9, "B") = ActiveSheet.Name
Sheets("Error").Cells(i9, "C") = II
Sheets("Error").Cells(i9, "D") = JJ
Sheets("Error").Cells(i9, "E") = Err.Number
Sheets("Error").Cells(i9, "F") = Err.Description
Sheets("Error").Cells(i9, "G") = Err.Source & "." & Application.ActivateMicrosoftApp
Sheets("Error").Cells(i9, "H") = Err.HelpContext
Sheets("Error").Cells(i9, "I") = Environ("COMPUTERNAME")
Sheets("Error").Cells(i9, "J") = Application.UserName
MsgBox "程序运行过程中发现错误，请通知程序员！"
Resume Next

baomaboy

高绪山 发表于 2012-9-21 14:51
闫总您好！
    请教一个问题，谢谢！　
　　就是，我想在程序运行出错后，记录下出错的过程或者函数名 ...

你这不是已经写出主体了吗？再拼凑组装一下应该就可以了吧

高绪山

baomaboy 发表于 2012-9-21 15:00
你这不是已经写出主体了吗？再拼凑组装一下应该就可以了吧

现在的Err.Source 只能显示“VBAProject”，我想知道是哪个过程名，做好是在程序哪一行，不知道是否能实现？ 谢谢！

高绪山

baomaboy 发表于 2011-10-17 17:17
不好意思，这几天没上，注册码在附件。

闫总：
   为什么加载宏后，从VBPROJECT 中可以看到加载的宏，可是程序运行时却出现“模块未定义”。应该如何调用加载宏的模块。谢谢！

继续_解释

谢谢...................谢谢

xiangsy

56505157486510111011178，这个是我的机器码，谢谢