利用VBA加载与取消加载宏文件

利用VBA加载与取消加载宏文件，主要使用到AddIns对象、AddIn对象的属性与方法。操作效果如下所示：

1.安装加载宏文件

Sub 安装加载宏文件()
    AddIns.Add("D:\我的代码箱.xlam").Installed = True
End Sub

2.取消加载宏文件

Sub 取消加载宏文件()
    '要取消加载宏文件的名称
    Dim addInName As String
    addInName = "我的代码箱.xlam"
    ' 遍历所有加载的插件
    Dim addIn As addIn
    For Each addIn In Application.AddIns
        If addIn.Name = addInName Then
            addIn.Installed = False
            Exit Sub
        End If
    Next
End Sub

3.批量取VB消加载宏文件

Sub 批量取消加载宏文件()
    Dim addIn As addIn
    For Each addIn In Application.AddIns
        addIn.Installed = False
    Next
End Sub