Excel 2010 просит PW два раза при открытии через VBA в открытии другой книги

Question

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

Private Sub Workbook_Open() 

Application.DisplayAlerts = False 
Set DATES = Workbooks.Open("Shareddrivepath\test.xlsx", password:="test") 
    Range("G2:H27").Copy 
    ThisWorkbook.Sheets(1).Range("C2:D27").PasteSpecial 
    Range("J2:K27").Copy 
    ThisWorkbook.Sheets(1).Range("G2:H27").PasteSpecial 
    Range("A1:E21").Copy 
    ThisWorkbook.Sheets("SET").Range("A1:E21").PasteSpecial 


    ThisWorkbook.Sheets(1).Activate 

DATES.Close 
Application.DisplayAlerts = True 

End Sub 

Есть ли что-то мне не хватает, что может загрузить этот пароль сразу или он должен быть связан с другими подразделами призвали при открытии? Я также попробовал просто связать ячейки и все еще требует/запрашивает пароль при запуске.

Answer 1

Я полагаю, что я нашел способ обойти это:

http://office.microsoft.com/en-us/excel-help/create-and-manage-links-to-other-workbooks-HA001054812.aspx

Linking к защищенным паролем тетрадей Присвоение пароля защиты для исходного листа или книги не мешает пользователям ссылающихся книг, которые не знают пароль от обновления ссылок. Если вы хотите, чтобы пользователи вводили пароль для обновления ссылок, сохраните исходный файл рабочей книги с открываемым паролем (нажмите «Сохранить как» в меню «Файл», выберите «Общие параметры» в меню «Инструменты»).

Set DATES = Workbooks.Open _ 
        ("Shareddrivepath\test.xlsx", WriteResPassword:="test")