Dear Access gurus,

I am not sure if I should address this question to Excel or Access
experts. Sorry if I posted on the wrong group.

I would like to know if Excel can extract data from an encrypted
Access database using VBA. The VBA programmer knows the Access
password. Has anyone tried this before? Thank you very much. I have
successfully done so on an unencrypted database but cannot find useful
information on the internet if the database is encrypted.

Lane wrote:
Go to Connectionstrings.com and find the connection string you need for a
password-protected database. The problem of course, is that the password
needs to be entered in clear text in the VBA module containing the code to
open the connection to the database. You might as well remove the password
protection.

On 24/12/2011 11:18:31, "Bob Barrows" wrote:
I should have thought if the Database is saved as an MDE or AccDe then the
code can't be read

Phil

On Dec 24, 7:18*pm, "Bob Barrows" <reb01... (AT) NOSPAMyahoo (DOT) com> wrote:
Thank you for your reply. Most helpful.

The VBA code in Excel can also be password-protected. This way, even
if the password is entered in clear text, users will not be able to
see it. Why do you suggest that the password protection might as well
be removed?

Phil wrote:
post.

Lane wrote:
It's so easily cracksble it's next to useless.

Thanks for the replies. I went to http://www.connectionstrings.com/access-2007
and used the connection string format (Provider=Microsoft.ACE.OLEDB.
12.0;Data Source=C:\myFolder\myAccess2007file.accdb;Jet OLEDBatabase
Password=MyDbPassword to connect to Access 2010 encrypted database.
I have tested the code for non-encrypted database. It works. However,
for encrypted database, it keeps returning "not a valid password". The
password is definitely correct because I have tested it on the
database.

Does anyone hear encounter similar experience? I have been searching
the net for help but I cannot see what I did wrong.
My VBA code is below. Thanks for the help.


'Database information
DBFullName = ThisWorkbook.Path & "\DB-Test.accdb"
'Open the connection
Set Connection = New ADODB.Connection
Cnct = "Provider=Microsoft.ACE.OLEDB.12.0;"
Cnct = Cnct & "Data Source=" & DBFullName & ";"
Cnct = Cnct & "Jet OLEDBatabase Password=123;"
Connection.Open ConnectionString:=Cnct

On Dec 25 2011, 12:30*am, "Bob Barrows" <reb01... (AT) NOSPAMyahoo (DOT) com>
wrote:

My google search has revealed people having problems with passwords longer
than 14 characters. Is yours that long? I'm assuming you've censored your
actual password for purposes of posting here.

You are using A2010, not A2007, so you might need a different provider,
especially if you're on a 64-bit machine.


Lane wrote: