Создание выпадающего списка из другой закрытой книги

[R Dmitry]

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

В VBA не существует метода получения значения из закрытого файла рабочей
книги.

Alex, это где Вы такую литературу нарыли

[doober]

Сообщение от R Dmitry

Alex, это где Вы такую литературу нарыли

Я подозреваю,что ЗДЕСЬ

[S_Brodsky]

Спасибо всем кто натолкнул на мысль и отозвался на просьбу помочь! Прошу помощи, поправьте пожалуйста код. Всё вроде бы начало работать через импорт. Но есть одно но. У меня в файле отчёта (оригинал) есть макрос включения защиты, который запускается при открытии книги. Я создал ещё один лист, скрытый, на который импортирую данные из закрытой книги. Но макрос выдаёт ошибку т.к. включена защита от изменений. Необходимо изменить код так, чтобы при запуске защита распространялась не на всю книгу а только на лист с отчётом, но в тоже время чтобы небыло доступа к скрытому листу с данными. Вот сам код который вставлен в Эта Книга:

Private Sub Workbook_Open()
    Dim wsSh As Object
    For Each wsSh In Me.Sheets
        Protect_and_Structure wsSh
    Next wsSh
End Sub
Sub Protect_and_Structure(wsSh As Object)
    wsSh.Unprotect Password:="Admin"
    wsSh.EnableOutlining = True
    wsSh.Protect Password:="Admin", DrawingObjects:=True, Contents:=True, Scenarios:=False, AllowInsertingColumns:=True, AllowInsertingRows:=True, UserInterfaceOnly:=True
End Sub

Вот сам отчёт

[S_Brodsky]

Помогите пожалуйста подправить код, очень надо