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

Question

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

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

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

Как мне удалить пароль?

Answer 1

Создать новую базу данных 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

СПАСИБО ЭРИКУ МЭТЬЮ ВАЙЕНТИЧУ

Answer 2

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

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