Подключение к запароленному файлу

[w00t]

Здравствуйте.

Помогите с вложением. Пытаюсь понять, как видоизменить код, чтобы иметь возможность сделать две вещи.

1. Через Excel устанавливать или снимать пароль на файл Access;
2. Хотя бы запаролить файл акцесс и подключиться к нему через эксель (забиндив пароль в vba).

Долго уже пытаюсь разные варианты и ничего пока что не получается. Буду очень признателен за помощь.

PS: Access 2013 или выше (как 32 так и 64 бит). Версии младше 2013 не используются.

[w00t]

Или может быть кто-либо приведет свой пример, в архивчике (акцесс+эксель файлики) - как установить/снять пароль через vba excel на базу данных. И как подключиться к базе данных с паролем.

Можно по-другому решить вопрос, конечно, на папку разрешения установить с БД, но в моем случае это не вариант. Потому озадачился поиском решения средствами vba.

[Aleksandr H.]

Где-то здесь 100% есть ответ

[w00t]

Сообщение от Aleksandr H.

Где-то здесь 100% есть ответ

Это первое действие, которое пробовал. К mdb видел вариант. Для старых версий тоже.

А для accdb и чтобы работало в 2016 версии - ничего не выходило, потому и решил спросить.

[w00t]

Сообщение от Aleksandr H.

Где-то здесь 100% есть ответ

Разобрался, почему у меня не коннектилось к базе данных. Нужно было сделать следующее:
1. Открыть *.accdb в монопольном режиме. Зайти в параметры клиента и выбрать способ шифрования как в предыдущей версии, после - установить пароль заново.
2. Далее немного видоизменить код подключения. Нашел пример, конкретно у меня была упущена эта строка ";Jet OLEDB:Database Password=". Если просто password - то была ошибка.

'DIM STATEMENTS
Dim strMyPath As String, strDBName As String, strDB As String, strQuery As String, strMyDBPassword As String
Dim i As Long, n As Long, lFieldCount As Long
Dim rng As Range
'instantiate an ADO object using Dim with the New keyword:
Dim adoRecSet As New ADODB.Recordset
Dim connDB As New ADODB.Connection
'--------------
'THE CONNECTION OBJECT
strDBName = "33mSTUPV2.accdb"
strMyPath = "v:\Arch_33"
strDB = strMyPath & "\" & strDBName
strMyDBPassword = "abcde"
'strMyDBPassword = ""
strQuery = "ds_Query1"
connDB.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strDB & ";Jet OLEDB:Database Password=" & strMyDbPassword & ";"

Но это половина дела, на второй вопрос точно не смогу найти ответ, как и до этого не получалось. Как задать пароль на базу данных или удалить его через vba в экселе. Это гораздо более сложный вопрос для меня.

[Aleksandr H.]

попробуйте может код по этой ссылке можно как-то в excel реализировать

[w00t]

Сообщение от Aleksandr H.

попробуйте может код по этой ссылке можно как-то в excel реализировать

Да, спасибо, вроде это ближе к истине и на примере новой базы данных, буду ковыряться.