Access Runtime环境下自动打开带密码的外部数据库

原代码在完整版Access中可正常创建新的Access.Application实例，但Access Runtime是单实例运行环境，不支持通过New Access.Application启动新的Access进程，因此触发报错。以下是可行的替代方案：

方案一：通过ShellExecute调用Access Runtime命令行打开 #

直接调用Access Runtime程序，利用命令行参数传递数据库密码，实现无手动输入密码、独立窗口打开加密数据库的需求。

实现代码 #

' 声明ShellExecute API（兼容32/64位Access）
Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
    ByVal hwnd As LongPtr, _
    ByVal lpOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As LongPtr

Public Function OpenEncryptedExternalDB() As Boolean
    Dim strRuntimeExe As String
    Dim strTargetDB As String
    Dim strDBPassword As String
    Dim strCmdParams As String
    
    ' 配置路径和密码
    strRuntimeExe = "C:\Program Files (x86)\Microsoft Office\root\Office16\MSACCESS.EXE" ' 适配你的Office版本路径
    strTargetDB = "C:\Programs\MendipDataSystems\JATFA\JATFA.accdb"
    strDBPassword = "password"
    
    ' 构造命令行参数：带空格的路径需用引号包裹，密码参数格式为/pwd:xxx
    strCmdParams = Chr(34) & strTargetDB & Chr(34) & " /pwd:" & strDBPassword
    
    ' 启动Runtime并打开数据库，返回操作结果
    If ShellExecute(0, "Open", strRuntimeExe, strCmdParams, vbNullString, vbNormalFocus) > 32 Then
        OpenEncryptedExternalDB = True
    Else
        OpenEncryptedExternalDB = False
    End If
End Function

关键说明 #

• Runtime路径适配：不同Office版本（2016/2019/365）的Runtime安装路径可能不同，建议通过读取注册表动态获取路径，避免硬编码失败。例如读取HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\[版本号]\Access Runtime\InstallRoot下的Path值。
• 密码参数限制：/pwd参数仅适用于数据库密码加密（而非用户级安全权限加密），确保目标数据库使用的是这种加密方式。
• 路径空格处理：如果数据库或Runtime路径包含空格，必须用双引号（Chr(34)）包裹，否则命令行会解析错误。

方案二：注册表动态获取Runtime路径（优化兼容性） #

如果不想硬编码Runtime路径，可以添加以下代码自动获取安装路径：

Private Function GetAccessRuntimePath() As String
    Dim regPath As String
    Dim officeVersions As Variant
    Dim i As Integer
    
    ' 按从新到旧顺序检查常见Office版本号
    officeVersions = Array("16.0", "15.0", "14.0")
    
    For i = LBound(officeVersions) To UBound(officeVersions)
        regPath = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\" & officeVersions(i) & "\Access Runtime\InstallRoot\Path"
        GetAccessRuntimePath = GetSetting("", "", regPath, "")
        If GetAccessRuntimePath <> "" Then
            GetAccessRuntimePath = GetAccessRuntimePath & "MSACCESS.EXE"
            Exit Function
        End If
    Next i
    
    ' 未找到时返回空值
    GetAccessRuntimePath = ""
End Function

调用时只需将strRuntimeExe = GetAccessRuntimePath()即可，增强代码的兼容性。

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