Removing A MS Access 97 DB Password Using MS Access 2007

[Debbie Rollins]

Hi everyone. I have several MS Access databases that were created in Access
95/97 and were password protected. I need to remove the passwords from those
databases using MS Access 2007, but am not able to do so.

I have Admin rights on the System.mdw as well as all the databases and I
know what the DB passwords are. The problem I run into is when trying to
update the databases to Access 2003/2007, I get a message stating that I must
remove the password first.

However, the option to delete/remove the database password is greyed out.

Any ideas?

 

[Joan Wild]

You'll need to open them in 97 and remove the password - then update.

You can email me if you need help.

 

[Debbie Rollins]

We no longer have MS Office/Access 97....therefore we don't have "access" to
Access. Any other ideas?
--
D.M. Rollins
Atlanta, GA USA
(e-mail address removed)

You'll need to open them in 97 and remove the password - then update.

You can email me if you need help.

 

[Joan Wild]

I have 97, if you want to email them to me, I'll do it.

--
Joan Wild
Microsoft Access MVP

We no longer have MS Office/Access 97....therefore we don't have "access" to
Access. Any other ideas?

 

['69 Camaro]

Hi, Debbie.

We no longer have MS Office/Access 97....therefore we don't have "access"
to
Access. Any other ideas?

Use the following VBA procedure in Access 97 and later (it works even in
Access 2007) to remove the database password on the Access 97 databases
(replace with your own file path and password):

Public Function removeDBPassword() As Boolean

On Error GoTo ErrHandler

Dim wkSpc As Workspace
Dim db As Database

Set wkSpc = CreateWorkspace("", "Admin", "", dbUseJet)
Set db = wkSpc.OpenDatabase("C:\Work\A97DB.mdb", True, False,
";pwd=MSFT")

db.NewPassword "MSFT", ""
removeDBPassword = True ' Success.

CleanUp:

Set db = Nothing
Set wkSpc = Nothing

Exit Function

ErrHandler:

MsgBox "Error in removeDBPassword( )." & vbCrLf & vbCrLf & _
"Error #" & Err.Number & vbCrLf & vbCrLf & Err.Description
Err.Clear
removeDBPassword = False ' Failed.
GoTo CleanUp

End Function

Essentially, this procedure replaces the current database password with a
zero-length string. I've never tried it on Access 95 database passwords,
but I suspect it will work on those, too.

HTH.
Gunny

See http://www.QBuilt.com for all your database needs.
See http://www.Access.QBuilt.com for Microsoft Access tips and tutorials.
Blogs: www.DataDevilDog.BlogSpot.com, www.DatabaseTips.BlogSpot.com
http://www.Access.QBuilt.com/html/expert_contributors2.html for contact
info.