Ошибка макроса Runtime ERROR 1004

[RML]

1-й В прилагаемом файле у меня есть макрос Его задача скрывать или показывать заданный диапазон ячеек, а -МАКРОС-(скрыть) перестает работать...а причину я никак непойму....Помогите кто может

2-й вопрос помогите написать макрос для вывода сначала четных, потом нечетных страниц поочереда т.е.
печатаем 1,3,4,5,7,9 страницы, через паузу 1 минута (например)
печатаем 10, 8, 6, 4, 2.

Вот никак не могу решить нормально эту проблему
Но при этом длолжна быть возможность задания списка номеров страниц=простыми галочками...

[RML]

Ошибка не 1009 а 1004..простите

[EducatedFool]

Откройте лист огневыеОРС, и попытайтесь вручную скрыть какие-нибудь строки.
Если у Вас не получается сделать это вручную - так и макрос этого не сделает...

Есть 2 варианта решения:

1) Отказать от защиты листа

2) Макросом снимать защиту с листа, скрывать строки, и устанавливать защиту вновь.

PS: Вместо строк

        If [L2] = ЛОЖЬ Then .Rows("1:117").Hidden = True Else .Rows("1:117").Hidden = False

можно использовать что-то вроде этого: .Rows("1:117").Hidden = Not [L2]

В итоге получим:

Sub СкрытьОРС()
    With Sheets("огневыеОРС")
        .Unprotect "пароль"
        
        .Rows("1:117").Hidden = Not [L2]
        .Rows("118:235").Hidden = Not [L4]
        '...
        
        .Protect "пароль"
    End With
End Sub

[RML]

Спасибо, щас попробую...
\

А можно этот-же макрос использовать при выводе на печать....?