opening a file that's password locked

B

brandon

is it possible to open up a database that has a password
on it without the password? the only reason i ask is
because we have an important database at work that a
former employee had a password on. we can't get the
password for it, so we're looking into finding a way to
open it regardless. any help would be great.
 
G

Guest

have you tried to create a new database, go to tables and
select new table, then import all the tables, queries,
forms, reports, macros, and modules from the password
protected program? my guess is that, while password
protected on opening normally, the programmer did not have
it protected from accessing in this fashion. then go into
the design of the form with the password and see if you
can discover the password or just do a redesign of that
form.

however, if you are not able to access the data in this
way, you could get ahold of a password cracking program
that will likely be able to crack the password in a couple
minutes tops - to get the program, try going to some
discussion groups on the topic...i've never tried to use
one myself, but know some who have and once you have seen
it work, you will rethink what you use for your own
passwords i assure you.
 
P

PC User

I saw this code in a website, but never tried it. Check it out and
let me know if it helps you.

Code:
================================================
'Open a Password Protected Access Database
' #Mandix Repository#*****************************************************
' * Programmer Name : FreeVBCode
' * Web Site : http://www.freevbcode.com/ShowCode.Asp?ID=353
' * E-Mail : [email protected]
' * Date : 21/10/1999
' * Time : 09:27
' **********************************************************************
' * Comments : Open a Password Protected Access Database
' *
' *
' **********************************************************************
Public Function OpenPasswordProtectedDatabase(DBPath As String,
Password As String) As Object

'Usage: Open Password protected database
'Parameters: DBPath: Full Path to Access Database
'Password: the Password
'returns the database, in it's open state if successful.
'Otherwise return value will evalute to nothing

On Error Resume Next
Dim db As DAO.Database

Set db = DAO.OpenDatabase(DBPath, False, False, _
";pwd=" & Password)

If Err.Number = 0 Then
Set OpenPasswordProtectedDatabase = db
Else
Set OpenPasswordProtectedDatabase = Nothing
End If

End Function
================================================
 
Top