Авто подстановка пароля на файл excel - VBA

Формулировка задачи:

Здравствуйте дамы и господа! Нужна ваша помощь в одном вопросе. Есть много запороленных excel файлов. В сущности в эти таблицы вносят данные различные сотрудники фирмы. Задача в конце месяца собрать все данные в один фин.отчет, что делается успешно макросом. Но! при копировании данных с таблицы, соответственно макрос запрашивает пароль на открытие этого файла и таких запросов получается очень много, что рутинно и непроизводительно. Какой код в VBA встроить, чтобы при запуске макроса он автоматически вставил пароль и в дальнейшем выполнял необходимую функцию. Часть имеющегося кода таков, остальной повторяется для других ячеек

Sub Июнь()
 
Application.ScreenUpdating = False
 
Workbooks.Open Filename:="отчет.xlsx"
 
Workbooks("отчет.xlsx").Worksheets("Итого").Range("I2").Copy
 
Workbooks("Итог.xlsm").Activate
 
ActiveWorkbook.Worksheets("Июнь").Range("D2").PasteSpecial Paste:=xlPasteValues
 
Workbooks("отчет.xlsx").Close
 
Application.ScreenUpdating = True
 
End Sub

Решение задачи: «Авто подстановка пароля на файл excel»

textual
                            Листинг программы 
                        
                            Workbooks.Open Filename:="отчет.xlsx", ReadOnly:=True, Password:="Пароль1"