Автоматизация ввода пароля в фоновом режиме

Пользователь

Сообщений: 14 Регистрация: 10.06.2017

12.08.2017 13:49:22

Доброго времени суток!

Коллеги, прошу помощи! Есть несколько файлов, запрашивающих макросом информацию из общего файла, на котором стоит пароль. При срабатывании макроса, естественно, появляется окошко для ввода пароля. Пароль я знаю, ввожу и естественно макрос отрабатывается корректно.

Не могу понять, как автоматизировать ввод пароля при выполнении макроса.

Код следующий

Код

Sub Макрос1() 
Dim sPath As String, sFile As String, sShName As String
sPath = "\\FD.maxim.local\ОК\Табели учета рабочего времени\Шаблоны\" '"
sFile = "СПРАВОЧНИКИ.xlsx" '"
sShName = "Люди" '"
Application.DisplayAlerts = 0
With Range("A1:Z146000")
.Formula = "='" & sPath & "[" & sFile & "]" & sShName & "'!" & "A1" '"
.Value = .Value
End With
Application.DisplayAlerts = 1
End Sub

Изменено: Sorrow - 12.08.2017 14:06:07

Юрий М Модератор Сообщений: 60983 Регистрация: 14.09.2012 Контакты см. в профиле	#2 12.08.2017 13:55:17 Sorrow, зачем Вы КАЖДУЮ строку оформили отдельным тегом? Исправьте.

ZVI

Пользователь

Сообщений: 4620 Регистрация: 23.12.2012

12.08.2017 13:55:49

1. Отключить обновление экрана
2. Открыть книгу так: Workbooks.Open sPath & sFile, ReadOnly:=True, Password:="Пароль на открытие"
3. Записать формулы без пути, но с именем открытой книги
4. Закрыть книгу при помощи Close
5. Включить обновление экрана

Изменено: ZVI - 12.08.2017 13:56:49

Sorrow Пользователь Сообщений: 14 Регистрация: 10.06.2017	#4 12.08.2017 14:06:51 Юрий М, сорри =) Накосячил, исправил

Eson Esonow

Пользователь

Сообщений: 2 Регистрация: 10.05.2021

10.05.2021 23:16:59

не понял решение
куда вставить автозаполнение пароля?

Код

Sub AW_2021()
    Dim sPath As String, sFile As String, sShName As String
    sPath = "Mein.xlsm"  '"
    sFile = "mein.xlsm"  '"
    sShName = "AW" '"
    With Range("A2:A26")
        .Formula = "='" & sPath & "[" & sFile & "]" & sShName & "'!" & "Q15" '"
        '"Q15" ziel
        .Value = .Value
    End With
    Application.DisplayAlerts = 1
End Sub

Читают тему