не удалось удалить пароль из Microsoft Access 2007 (accdb)

Question

У меня есть файл Microsoft Access 2007 (accdb). Я установил для него пароль. Когда я открою его сейчас, мне будет предложено ввести пароль. Я ввожу правильный пароль, и я могу получить к нему доступ.

Однако, я хочу удалить пароль. Я нажимаю «Инструменты базы данных», но в инструментах базы данных вижу только «Шифровать с паролем», в отличие от файла справки (который говорит, что я должен видеть «расшифровать пароль».)

Похоже, что пользовательский интерфейс доступа У меня нет пароля, поэтому он не даст мне возможность удалить пароль.

Как я могу удалить пароль?

Answer 1

Вы открыли базу данных в "эксклюзивном режиме"?

Файл | Открыть | выбрать файл базы данных | Треугольник Рядом с командой «Открыть» button | Открыть Exclusive

Answer 2

Создать новую базу данных Access Создать новую форму Создать командную кнопку

выполнить ниже кода (код изменения, чтобы достичь вашей базы данных и пароля)

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 

БЛАГОДАРЯ ERIC МАТФЕЙ VAJENTIC