如何远程查询Excel中的VBA宏是否已安装并启用？

一、PowerShell检测方案（支持批量执行） #

通过COM对象直接访问Excel的加载项集合，可直接判断安装与启用状态：

1. 检测加载项是否已安装 #

$excel = New-Object -ComObject Excel.Application
$targetAddInName = "你的自定义加载项名称" # 替换为实际加载项名称
$isInstalled = $false

foreach ($addIn in $excel.AddIns) {
    if ($addIn.Name -eq $targetAddInName) {
        $isInstalled = $true
        break
    }
}

Write-Host "加载项是否已安装: $isInstalled"
$excel.Quit()
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($excel) | Out-Null

2. 检测加载项是否已启用 #

在安装检测基础上，增加对Installed属性的判断：

$excel = New-Object -ComObject Excel.Application
$targetAddInName = "你的自定义加载项名称"
$isEnabled = $false

foreach ($addIn in $excel.AddIns) {
    if ($addIn.Name -eq $targetAddInName -and $addIn.Installed -eq $true) {
        $isEnabled = $true
        break
    }
}

Write-Host "加载项是否已启用: $isEnabled"
$excel.Quit()
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($excel) | Out-Null

注意：执行脚本需终端安装Excel，且运行时Excel未被占用；批量部署时可封装为批处理或通过组策略推送。

二、宏内自检测方案 #

若允许修改宏代码，可在加载项初始化时写入标识文件，后续通过命令行检测：

1. 在加载项的Workbook_Open事件中添加：

Private Sub Workbook_Open()
    Dim flagPath As String
    flagPath = Environ("APPDATA") & "\YourAddInFlag.txt"
    Open flagPath For Output As #1
    Print #1, "Enabled"
    Close #1
End Sub

2. 用PowerShell检测标识文件：

$flagPath = "$env:APPDATA\YourAddInFlag.txt"
if (Test-Path $flagPath) {
    Write-Host "加载项已启用（通过标识文件检测）"
} else {
    Write-Host "加载项未启用或未运行"
}

此方法依赖用户打开Excel并触发加载项初始化事件。

三、注册表辅助检测 #

Excel加载项的添加信息会存入注册表，可用于判断是否已添加到加载项列表：

$regPath = "HKCU:\Software\Microsoft\Office\$(Get-ItemProperty 'HKCU:\Software\Microsoft\Office').CurrentVersion\Excel\Add-in Manager"
$targetAddInName = "你的自定义加载项名称"

if (Get-ItemProperty -Path $regPath -Name $targetAddInName -ErrorAction SilentlyContinue) {
    Write-Host "加载项已添加到Excel，但无法直接确认是否启用"
} else {
    Write-Host "加载项未安装"
}

注册表仅能判断加载项是否被添加，无法直接确认是否勾选启用，需结合COM对象检测。

内容的提问来源于stack exchange，提问作者Aideux