ms-access - 是否可以使用VBA更改当前accdb/e数据库密码

我有一个个人数据库应用程序，最初是在Access 2007中使用mdb格式设计的。出于安全原因，我已将其转换为.accdb。除更改数据库密码功能外，所有功能均能正常转换。由于Db关闭了所有工具栏，因此在VBA中完成了此功能。以mdb格式...可以正常工作

DBPath = [CurrentProject].[FullName]

' Create connection string by using current password.
strOpenPwd = ";pwd=" & OldPswd

' Open database for exclusive access by using current password. To get
' exclusive access, you must set the Options argument to True.
Set dbsDB = OpenDatabase(Name:=DBPath, _
                         Options:=True, _
                         ReadOnly:=False, _
                         Connect:=strOpenPwd)

' Set or change password.
With dbsDB
    .NewPassword OldPswd, Pswd2
    .Close
End With

Me.DB_Pswd = Pswd2

Set dbsDB = Nothing

我从这个论坛中找到了一些与.accdb接近的内容，但它仅适用于另一个.accdb文件，不适用于当前项目...。

strAlterPassword = "ALTER DATABASE PASSWORD [" & NwPswd& "] [" & OldPswd & "];"

Set ADO_Cnnct = New adodb.Connection
With ADO_Cnnct
    .Mode = adModeShareExclusive

    .Provider = "Microsoft.ACE.OLEDB.12.0"
    '  Use old password to establish connection
    .Properties("Jet OLEDB:Database Password") = OldPswd

    'name  current DB

    DBPath = [CurrentProject].[FullName]  <- this does not work: get a file already in use error

    .Open "Data Source= " & DBPath & ";"
    ' Execute the SQL statement to change the password.
    .Execute (strAlterPassword)
End With

'Clean up objects.
ADO_Cnnct.Close
Set ADO_Cnnct = Nothing

那么有没有办法在VBA中为.accdb文件执行此操作？基本上，它将自动执行“首先解密”的工具栏功能以及使用新密码进行加密。我知道工具栏可以做到的，所以我知道必须有一种VBA方式来做到这一点。

最佳答案

我找到了解决办法，或者只是解决了。通过删除ADO库，第一种方法将适用于.Accde格式的文件。它不适用于.accdb格式的文件，但是无论如何您都不希望分发这些文件。