Есть вот такой код:

Книга = Excel.WorkBooks.Open(ИмяФайла);
Лист = Книга.WorkSheets("Имя листа");
.....
Лист.Range(Лист.Cells(1, 1), Лист.Cells(ВсегоСтрок, ВсегоКолонок)).FormulaR1C1 = МассивЯчеек; // инициализация формул
Лист.Protect("12345", 1, 1, 1);

Валится с сообщением об исключительной ошибке на Лист.Protect. Находила похожие темы, но так и не поняла, в чем может быть причина.
Заранее спасибо за помощь.

Достаточно пару секунд поиска 1С и Excel. Как включить программно автофильтр для защищенного листа

(1) Речь о том, что пароль нужно указывать без кавычек?

(2) И про ActiveSheet

(3) Переделала

Лист.Range(Лист.Cells(1, 1), Лист.Cells(ВсегоСтрок, ВсегоКолонок)).FormulaR1C1 = МассивЯчеек; // инициализация формул
Книга.ActiveSheet.Protect(12345, 1, 1, 1);

Все равно валится с той же ошибкой

Подниму, пожалуй.
Решение так и не найдено.

Private Sub CommandButton_Click()
    Worksheets("Лист1").Unprotect Password:="1111"
End Sub

Private Sub CommandButton__Click()
    Worksheets("Лист1").Unprotect "1111"
End Sub

Private Sub CommandButton___Click()
    Password = "1111"
    Worksheets("Лист1").Unprotect Password
End Sub

(6) Простите, не поняла, на что вы предлагаете обратить внимание

Проблема, похоже, заключается в том, что файл, в котором нужно защитить листы, выгружается из 1С через ПакетОтображаемыхДокументов. Причем если таким образом формировать книгу с одним листом - все нормально, Protect срабатывает; если формируем книгу с несколькими листами - получаем исключительную ситуацию.

Проблема решена.
https://infostart.ru/1c/articles/979007/
Ответ (44)

Нет предела совершенству. Есть вариант проще.

Для Счетчик = 1 По Книга.WorkSheets.Count Цикл
     Книга.WorkSheets(Счетчик).Select();
КонецЦикла;