如何用excel vba访问加密的access

可以，前提是你要知道数据库密码。

Sub

open_database()

Set

wsMainWs

=

DBEngine(0)

Set

mydBase

=

wsMainWs.OpenDatabase(ThisWorkbook.Path

&

"\UsersBase.mdb",

True,

False,

"ms

accesspwd=123456")

End

Sub

上述过程中假设你的数据库名为

UsersBase.mdb(access格式)，放在与你当前打开的工作薄文件同目录下。123456

是你打开数据库的密码。

如果要详细的代码最好将.MDB文件上传，或者用录制宏功能录制打开数据库的宏，录制后找到 Password="""" 改为 Password=""2345"" 并将宏命名为“打开数据库”

在sheet1页右键点击页标签选查看代码，在VBE编辑器中粘贴以下代码即可

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Count = 1 And Target.Address = "$F$7" Then

Call 打开数据库

End If

End Sub

Application.Workbooks.Open(filename, , , , "ABCD")

可以这样打开带密码的文件。filename就是你的文件目录，比如你的是("d:\cjd\" &x &"文.xls"）。

---