尝试通过VBA Shell调用Regedit消除Excel ActiveX提示遇Shell访问问题

我明白你现在的困扰——想去掉Excel打开带UserForms文件时的ActiveX安全提示，结果在调用Shell命令的时候卡壳了。结合你给出的测试环境（尤其是电脑A是32位Excel跑在64位Win10上，这个细节很关键），我整理了几个针对性的解决方向：

先试试绕开Shell命令，从根源解决ActiveX提示问题：

• 打开Excel，点击文件 > 选项 > 信任中心 > 信任中心设置
• 选择ActiveX设置，根据场景调整：
  • 如果是自己开发的内部文件，可以选*“禁用所有控件，除非提供了安全声明”*，再把文件所在文件夹添加到受信任位置
  • 测试环境下可以临时选*“启用所有控件（不推荐；可能会运行不安全的控件）”*，但注意不要在正式环境用

你遇到的Shell报错，大概率是32位Excel在64位系统下的路径重定向问题，试试这些调整：

1. 强制调用64位命令行
   32位程序默认会被重定向到C:\Windows\SysWOW64，可以用%windir%\system32\cmd.exe强制调用64位终端，示例代码：

Dim shellCmd As String
shellCmd = "%windir%\system32\cmd.exe /c ""你的具体命令内容"""
Shell shellCmd, vbNormalFocus

2. 妥善处理带空格的路径
   如果命令里涉及的文件路径有空格，必须用双引号包裹，比如：

shellCmd = "%windir%\system32\cmd.exe /c ""copy ""C:\My Excel Files\test.xlsm"" ""D:\Backup\test.xlsm"""""

3. 替换成WScript.Shell（更稳定的替代方案）
   原生Shell函数在混合环境下容易出问题，换成WScript.Shell兼容性更好：

Dim wsh As Object
Set wsh = CreateObject("WScript.Shell")
' 最后一个True参数会等待命令执行完成再继续代码，方便调试
wsh.Run "%windir%\system32\cmd.exe /c 你的命令", vbNormalFocus, True
Set wsh = Nothing

如果想要永久解决ActiveX提示，给你的项目和控件签名是最优解：

• 打开VBA编辑器（Alt+F11），点击工具 > 数字签名
• 没有证书的话，点击创建生成自签名证书（仅限内部使用）
• 把证书导入目标电脑的受信任根证书颁发机构，Excel就会信任签名后的文件，不再弹出提示

另外，针对电脑B的64位Win10环境，如果它装的是64位Excel，可以用条件判断让代码兼容双环境：

#If VBA7 Then
    ' 64位Excel的命令写法
    shellCmd = "%windir%\system32\cmd.exe /c ""你的命令"""
#Else
    ' 32位Excel的命令写法，用sysnative绕过路径重定向
    shellCmd = "%windir%\sysnative\cmd.exe /c ""你的命令"""
#End If

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