Всем привет. Есть лист . На нем две кнопки. 1- скрыть пустые строки. 2- очистить строки и раскрыть.

Как-только защищаю лист макросы не работают выдает:

"Нельзя установить свойство Hidden класса Range." Кнопки не попадают в диапазон работы макросов.
Что делать?
Заранее спасибо.

Нашла такой вариант защиты, создала модуль, вставила это:

Private Sub Workbook_Open()
If Application.Version < 10 Then Worksheets("Форма").Protect UserInterfaceOnly:=True
End Sub


Не работает.....
ПОМОГИТЕ

Sub Кнопка5_Щелкнуть()


x = 15 'начальная точка
y = 39 'конечная точка


st1 = "B" ' Столбец сравнения

For i = x To y

Sheets("Форма").Activate
If Range(st1 & i).Value = "" Then
Sheets("Форма").Activate
Rows(i).Select
Selection.EntireRow.Hidden = True

End If
Next




End Sub