vba - 如果使用默认加密(高安全性)进行密码保护，是否无法使用 Excel Access Access 2010 数据库？

Question

我目前支持由商业用户编写的 Excel 2010 电子表格和 Access 2010 数据库。 Access 数据库的要求之一是对其进行加密。它是使用默认加密设置“使用默认加密(更高安全性)”加密的，可以在选项 -> 客户端设置中进行设置。

现在数据库受密码保护和加密，我无法通过 Excel 连接到数据库。我的测试围绕将数据导入 Excel 展开，但我真正需要做的是在日志表中创建一行。我正在尝试使用“数据”选项卡和“从 Access ”选项以及通过 VBA 代码直接导入到工作表中。使用Excel界面，出现密码对话框，永远不会接受正确的密码。使用 VBA 和 ADO，Open 语句会引发“密码无效”错误。 如果我使用“使用旧加密”设置加密数据库，这两种方法都可以正常工作。

我认为这也可能是我的设置，我使用的是 Windows 7 32 位和 Office 2010。我也尝试过使用 Office 2013 的 Windows 8.1 64 位，结果相同。它适用于传统加密，但不适用于默认加密。我之前没有尝试任何东西。 Office 2010 和 Windows 7 引入了默认的更高安全性加密。

我的研究使我找到了 this Technet thread和 this Stackoverflow question ，两者都表明 Excel 无法使用默认加密方法与 Access 交互。我还没有找到更多讨论这个确切问题的内容。

我向您提出的问题是，使用默认设置保护 Access 2010 数据库的密码是否真的会阻止 Excel 2010 导入数据(使用密码时)？对我来说，这听起来不太对，因为在两个应用程序之间共享数据是一项非常基本的功能。我还认为，如果这是一个问题，谷歌会提供更多关于它的信息。在这一点上，我的猜测是 Excel 和 Access 默认使用下一代加密引擎，但 ADO 库尚未更新以使用它。

我已附上连接代码以供审核。为了测试，我正在执行一个简单的 Now() 命令并发出结果。即使使用正确的密码，连接也会因“密码无效”错误而在打开时失败。适用于传统加密，而不适用于默认加密。

Sub ADOCNGConnect()
    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim ds As String

    'setting up connection
    Set cn = New ADODB.Connection
    With cn
        .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                            "Data Source='FILEPATH'" & _
                            ";Jet OLEDB:Database Password=password"
        .Open
    End With
    'setup recordset object
    Set rs = New ADODB.Recordset
    'retrieve new number
    rs.Open "SELECT Now() AS qryTest", cn, adOpenKeyset
    MsgBox rs!qryTest
    rs.MoveLast

    'close ADO object vars
    rs.Close: Set rs = Nothing
    cn.Close: Set cn = Nothing
End Sub

Answer 1

根据 ConnectionStrings.com ，ACE 提供程序不适用于新的更强大的 Access 2010 db 加密:

" 注意! 报告说使用 Access 2010 - 2013 默认加密方案加密的数据库不适用于此连接字符串。在 Access 中；尝试选项并选择 2007 加密方法。这应该可以工作。我们不知道还有什么其他的解决办法。”

然而，这并不能说明全部。您的代码用作 Access VBA 程序并成功连接到另一个具有更强 Access 2010 加密的 ACCDB。但是我找不到任何方法来使类似的代码像 Excel VBA 过程一样工作。

最终我放弃了那个努力。由于您的目标似乎是使包含 Access 数据的 ADO 记录集可用于 Excel，因此我决定自动化 Access 并使用其 CurrentProject.Connection.Execute方法来加载记录集。

这可能看起来有点笨拙，但它确实有效......

Const cstrPath As String = "C:\Users\hans\Documents\a2010_DbPass_foo.accdb"
Const cstrPwd As String = "foo"
Dim objAccess As Object ' Access.Application
Dim rs As Object ' ADODB.Recordset
Dim strSelect As String

Set objAccess = CreateObject("Access.Application")
objAccess.Visible = True
objAccess.OpenCurrentDatabase cstrPath, , cstrPwd

'strSelect = "SELECT Now() AS qryTest"
strSelect = "SELECT some_text AS qryTest FROM tblFoo"
Set rs = objAccess.CurrentProject.Connection.Execute(strSelect)
MsgBox rs!qryTest
rs.Close
Set rs = Nothing
objAccess.Quit
Set objAccess = Nothing

请注意，当我对 strSelect 使用“SELECT Now() AS qryTest”时, Access 在 .Quit 崩溃我不明白为什么会这样。但是该代码在 Excel 2010 中按编写的方式运行无故障。