Макрос: в защищенном файле удалить строки.

[astrofitum]

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

Подскажите чайнику в чем дело, пожалуйста.

[VictorM]

Если уж просмотрены все темы и примеры, что здесь добавишь.
Ваш макрос находится вне книги, следовательно только рекомендации:
1.Удалять/Ставить защиту на время работы макроса
2.Изпользовать для защиты листа код

Worksheets(1).Protect UserInterfaceOnly:=True

защищает от ввода с клавиатуры, но позволяет работу макроса.

[astrofitum]

Совсем заработался.
Выкладываю с модулем внутри.

[VictorM]

Первый вариант, то, о чем я говорил - снять/восстановить защиту.

Sub DeleteRows()
    Dim rng As Range
    Set rng = ActiveSheet.ListObjects(1).Range
    If Not TypeOf Selection Is Range Then Exit Sub
    Sheets("Лист1").Unprotect
    With Selection
        If .Areas.Count > 1 Then Exit Sub
        If .Row > rng.Row + 1 And _
            (.Row + .Rows.Count) < (rng.Row + rng.Rows.Count) Then
                .EntireRow.Delete
        Else
            MsgBox "Can't delete rows outside of the data area. " & _
                "Please select cells inside the table"
        End If
    End With
    Sheets("Лист1").Protect
End Sub

Все работает.
Неужели не нашли об этом ничего во всех просмотренных темах?

[VictorM]

Второй вариант:
Сначала защищаем лист вот таким образом, например при открытии книги

Sub pr()
Sheets("Лист1").Protect UserInterfaceOnly:=True
End Sub

Теперь Ваш макрос работает и без изменений.

[astrofitum]

Получилось.
Спасибо.