impossible de supprimer le mot de passe de Microsoft Access 2007 (accdb)

Question

J'ai un fichier Microsoft Access 2007 (accdb). J'ai mis un mot de passe dessus. Quand je l'ouvre maintenant, je suis invité à entrer un mot de passe. J'entre le mot de passe correct et je peux y accéder.

Cependant, je souhaite supprimer le mot de passe. Je clique sur "Outils de base de données", mais dans les outils de base de données, je vois "Chiffrer avec mot de passe", contrairement au fichier d'aide (qui dit que je devrais voir "déchiffrer mot de passe.")

Je n'ai pas de mot de passe, donc il ne me donnera pas l'option de supprimer le mot de passe.

Comment puis-je supprimer le mot de passe?

Answer 1

Avez-vous ouvert la base de données en "mode exclusif"?

Fichier | Ouvrir | sélectionnez le fichier de base de données | Triangle À côté de la commande "Ouvrir" bouton | Ouvrez exclusif

Answer 2

Créer une nouvelle base de données Access Créer un nouveau formulaire bouton Créer commande

exécuter ci-dessous le code (code de changement pour atteindre votre base de données et mot de passe)

Public Sub Command0_Click() 
Dim objConn As ADODB.Connection 
Dim strAlterPassword As String 

On Error GoTo ChangeDBPassword_Err 

' Create the SQL string to change the database password. 
' Here, "It" is the old password, and I am wanting to set the password to NULL 
' Replace "It" with your password 
strAlterPassword = "ALTER DATABASE PASSWORD NULL [It];" 

' Open the secured database. 
Set objConn = New ADODB.Connection 

With objConn 
.Mode = adModeShareExclusive 
.Provider = "Microsoft.ACE.OLEDB.12.0" 
' Replace "It" with your old password 
.Properties("Jet OLEDB:Database Password") = "It" 
'The following specifies the location of the database of which PW I'm trying to change. 
' Replace path to your database 
.Open "Data Source= G:\Database\database.accdb;" 
' Execute the SQL statement to change the password. 
.Execute (strAlterPassword) 
End With 

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

ChangeDBPassword_Err: 
MsgBox Err.Number & ":" & Err.Description 
End Sub 

MERCI À ERIC MATTHEW VAJENTIC