Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, китин  
Установить/снять пароль для 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]
 
Ответить
СообщениеЗдравствуйте! Ниже, для примера, приведён код которым из 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]

Автор - ОлеггелО
Дата добавления - 25.04.2024 в 22:19
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!