как заставить работать макрос при защите листа

[qwertyuzer]

Помогите пожалуйста!!!

Я нашел макрос:
Private Sub Worksheet_Change(ByVal Target As Range)

Call ShowFirstRowsOfRange(28, 31, Cells(1, "M").Value)
Call ShowFirstRowsOfRange(31, 33, Cells(2, "M").Value)

End Sub
который скрывает/отображает строки согласно заданных параметров, подвязал к необходимому файлу и пока не ставлю пароль на лист он срабатывает, как только ставлю защиту листа выбивает ошибку

подскажите что необходимо прописать для безсбойной работы данного макроса при защите листа, либо другой выход из этой ситуации

[IgorGO]

я не знаю что делат ShowFirstRowsOfRange и ShowFirstRowsOfRange, если все происходит на активном листе то так:

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect
Call ShowFirstRowsOfRange(28, 31, Cells(1, "M").Value)
Call ShowFirstRowsOfRange(31, 33, Cells(2, "M").Value)
ActiveSheet.Protect
End Sub

[qwertyuzer]

макрос работает, но есть еще один вопрос. Можно ли ограничить возможность снятия защиты простым нажатием "снять защиту с листа"

[qwertyuzer]

помогите плз горююю..........

[EducatedFool]

Sub test()
    ActiveSheet.Unprotect "123"
    ' ваш код
    ActiveSheet.Protect "123"
End Sub

Замените пароль 123 на любой другой.
Снять защиту листа без пароля не получится.