sokol92,спасибо.
Скорее,надпись  на русском автоматически пропускал-не читал,невнимательность.

Не жмите бездумно на кнопку цитирования. Она не для создания копий сообщений [МОДЕРАТОР]

Работает, если только в режиме чтения-Workbooks.Open(coll(i), , True). Если поменяем на False и пропишем пароль,то все равно откроется окно ввода пароля.

До Workbook_Open выходит окно ввода пароля для открытия книги,только после этого срабатывает Workbook_Open.

Доброго дня всем!

Вопрос следующего характера (возможно,подобные темы были на форуме,но конкретного(работающего) для меня варианта не нашел)
Eсть файл Общая.xlsm, макрос в данном файле перебирает файлы того же формата, эти файлы запароленные.  Необходимо автоматизировать ввод пароля при открытии данных файлов, т. к. надо зайти для редактирования.
Вариант с Workbook_Open не подходит/ Gытался с SendKeys, но неудачно.

Прошу подсказать варианты для решения данного вопроса.
Заранее спасибо, админу в том числе.