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

baomaboy

xiangsy 发表于 2012-9-24 13:00
56505157486510111011178，这个是我的机器码，谢谢

56505157486510111011178

donaldlee

老师你好,有个问题请教一下.
我原来安装了通用扩展EXCEL工具集V2.78.exe
然后现在想更新到最新的,不过我用2.78的卸载,再装最新的2.81但装了以后扩展的菜单都找不到的?

高绪山

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

闫总，请教一个问题：
   我在我的机器上制作的“加载宏”，在其他机器上加载时出现“是否将XXX.XLA文件复制到 AddIns目录中”的提示，是什么原因造成的，如何改正。谢谢！

高绪山

baomaboy 发表于 2012-9-24 21:18
56505157486510111011178

补充说明。我把加载宏放在网络上。
加载程序
Sub LoadAddIn()
  Dim AddInsPath, AddInsName As String
  AddInsPath = IIf(Trim(Sheets("设置").Cells(4, "B")) = "", ThisWorkbook.Path & "\", Trim(Sheets("设置").Cells(4, "B")))
  AddInsName = Trim(Sheets("设置").Cells(5, "B"))
  On Error GoTo ErrorHandler
   Set objAddin = Application.AddIns.Add(Filename:=AddInsPath & AddInsName)
   
    With objAddin
        .Installed = True
    End With
'MsgBox objAddin.Installed
Exit Sub
ErrorHandler:
   Err.Raise Err.Number, Err.Source, Err.Description

baomaboy

donaldlee 发表于 2012-9-25 08:53
老师你好,有个问题请教一下.
我原来安装了通用扩展EXCEL工具集V2.78.exe
然后现在想更新到最新的,不过我用 ...

看看禁用项目里有没有被禁用(1楼有)
看看是否安装时被杀毒软件拦截了(可以试试关闭杀毒软件再安装试试)

baomaboy

高绪山 发表于 2012-9-25 11:19
闫总，请教一个问题：
   我在我的机器上制作的“加载宏”，在其他机器上加载时出现“是否将XXX.XLA文件 ...

xla文件的默认路径 就是addins 至于提示 不了解什么原因。
没附件无法回答。
'---------------
看了你的补充，Set objAddin = Application.AddIns.Add(Filename:=AddInsPath & AddInsName)
本来就应该是那个效果，为什么要改正。
不知道你要做什么，

owo

强势插入~精彩不容错过~~~{:soso_e182:}

高绪山

baomaboy 发表于 2012-9-25 13:48
xla文件的默认路径 就是addins 至于提示 不了解什么原因。
没附件无法回答。
'---------------

将：
Set objAddin = Application.AddIns.Add(Filename:=AddInsPath & AddInsName，CopyFile：=False)
后，不提示“将文件复制到Addins中”了。
现在，又出现一个新问题，请教一下：
因为，加载宏是放在公司网络服务器上，时多个程序公用的模块。最初的想法是，使用加载宏是为了维护程序方便（我理解就是公用模块的作用）。
现在，在实际程序维护过程中，如果其他用户加载了，就出现“只读”。我改变了加载宏的Path为本机，可是程序仍然是网络上的。
不是是否可是在加载前，先删除加载的信息，相当于Remove命令。

卸载宏的程序如下：

Sub UnloadAddIn()
On Error GoTo ErrorHandler
   
    With objAddin
        .Installed = False
    End With
'MsgBox objAddin.Installed
   
Exit Sub
ErrorHandler:
    Err.Raise Err.Number, Err.Source, Err.Description
End Sub

baomaboy

高绪山 发表于 2012-9-27 14:12
将：
Set objAddin = Application.AddIns.Add(Filename:=AddInsPath & AddInsName，CopyFile：=False)
...

你改变了加载宏的path为本机路径之后加载宏还是网络的说明你根本没改变路径，只是你以为改变了。
你到注册表中
HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Excel\Add-in Manager
路径下看看你的加载宏实际路径是什么?

hml_79

使用了，不错！