Установить/снять пароль для Access маросом из Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

Мир MS Excel » Вопросы и решения » Excel и другие приложения » Access » Установить/снять пароль для Access маросом из Excel

ОлеггелО

Дата: Четверг, 25.04.2024, 22:19 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 129

Репутация: 20 ±

Замечаний: 0% ±

Здравствуйте! Ниже, для примера, приведён код которым из Access загружаю данные в Excel. Возможно ли, и как, снять пароль для Access а после работы макроса снова его установить? В идеале пароль на открытие файла Access, или пароль на открытие таблицы Access, или пароль на редактирование таблицы Access.
[vba]

Код

Sub From_Access_In_Excel() '
Application.ScreenUpdating = False
Dim dbe As Object '
Dim db  As Object '
Dim rst As Object '
Void = " & Space(1) & "

If ActiveSheet.Name = "ДляПримера" Then
    FullWay_1 = ActiveWorkbook.Path '
    FileNameBD = "DB.accdb"
    FullWay = FullWay_1 & "\" & FileNameBD

    Set dbe = CreateObject("DAO.DBEngine.120") '
    Set db = dbe.OpenDatabase(FullWay) '

        sSQL = sSQL + ""
        sSQL = "SELECT "
        sSQL = sSQL + " Фамилия " & Void & ""
        sSQL = sSQL + " Имя " & Void & ""
        sSQL = sSQL + " Отчество " & Void & ""
        sSQL = sSQL + " ДатаРождения "
        sSQL = sSQL + " FROM "
        sSQL = sSQL + " Пример "
        sSQL = sSQL + " WHERE "
        sSQL = sSQL + " ДатаРождения > 11 "

    Set rst = db.OpenRecordset(sSQL)
    Range("A2").CopyFromRecordset rst
End If

Set dbe = Nothing
Set db = Nothing
Set rst = Nothing

Application.ScreenUpdating = True
End Sub

[/vba]

Ответить

Мир MS Excel » Вопросы и решения » Excel и другие приложения » Access » Установить/снять пароль для Access маросом из Excel

Страница 1 из 1
1