пароль

[ruavia3]

Одна книга1.хls, содержит данные другой книги2.xls, которая при открытии запрашивает пароль.

Вопрос: Можно ли при отрытии книги1.xls вводить пароль (для обновления ячеек из книги2.xls) с помощью макроса.

Пароль для книги2.xls - 123

[ruavia3]

Private Sub Workbook_Open()

Workbooks("книга2.xls").Unprotect 123

End Sub

Не успевает срабатывать.

[EducatedFool]

А что, если сначала открыть запароленную книгу, а потом - основную?

Sub TEST()
    Workbooks.Open "C:\Documents and Settings\книга2.хls", , , , 123
    Workbooks.Open "C:\Documents and Settings\книга1.хls"
End Sub

[pivas]

Или в таком варианте:

Private Sub Workbook_Open()
Workbooks.Open "D:\Книга2.xls", , , , 123
ActiveWorkbook.UpdateLinks = xlUpdateLinksAlways
ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
Workbooks("Книга2").Close
End Sub

[ruavia3]

1) оператору, который будет работать с книгой1.xls не должно быть видно книгу2.
2) Private Sub Workbook_Open() - сработает только после запроса пароля на открытие книги2

[pivas]

Workbooks.Open "D:\Книга2.xls", , , , 123

Эта строка кода открывает Книга2 без запроса пароля. Запрос у Вас выдаётся на обновление связей. Для того, чтобы код в предыдущем посте работал правильно в Книга1 надо отключить обновление связей и запрос на обновление. И, если добавить отключение обновления экрана, то Ваш оператор ничего не заметит.

[ruavia3]

как прописать программно:
отключение обновления связей и запрос на обновление и добавить отключение обновления экрана?

[pivas]

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Workbooks.Open "D:\Книга2.xls", , , , 123
ActiveWorkbook.UpdateLinks = xlUpdateLinksAlways
ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
Workbooks("Книга2").Close
Application.ScreenUpdating = True
End Sub

это с отключением экрана. А обновление связей надо отключить вручную в Правка->Связи...->Запрос на обновление связей... выбрать пункт "Не задавать вопрос и не обновлять связи". Сохранить изменения и должно работать.

[ruavia3]

cпасибо, единственное смущает ",,,, 123" не могу проверить, т.к. на телефоне нет офиса.

[analyst]

Сообщение от ruavia3

cпасибо, единственное смущает ",,,, 123" не могу проверить, т.к. на телефоне нет офиса.

Всё правильно.
expression.Open (FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad)
FileName указали, updatelinks занулили, readonly занулили, format занулили, password указали!