Ограничить удаление строк в определенном диапазоне

Question

У меня есть простой код для удаления строк путем выбора конкретной ячейки. Проблема в том, что нельзя допускать удаление строк в диапазоне A1:AZ7 Я думаю, мне нужен оператор if для этой операции? Что это должно быть?

Private Sub CommandButton24_Click()
    ThisWorkbook.Worksheets("GanttChart").Unprotect Password:="123456"

    Dim MyRange As Range
    Dim TestRange As Range

    Set TestRange = ThisWorkbook.Worksheets("GanttChart").Range("A1:AZ7")
    Set MyRange = ' slected cell

    If Not Application.Intersect(MyRange, TestRange) Is Nothing Then
        ThisWorkbook.Worksheets("GanttChart").Range("A" & ActiveCell.Row).Rows(1).EntireRow.Delete
    End If

    ThisWorkbook.Worksheets("GanttChart").Protect Password:="123456"
End Sub

Answer 1

Private Sub CommandButton24_Click()
    With ThisWorkbook.Worksheets("GanttChart")
        .Unprotect Password:="123456"

        Dim MyRange     As Range
        Dim TestRange   As Range

        Set TestRange = .Range("A1:AZ7")
        Set MyRange = Selection     ' U Can select many cells

        If Application.Intersect(MyRange.EntireRow.Rows, TestRange.EntireRow.Rows) Is Nothing Then
            'ThisWorkbook.Worksheets("GanttChart").Range("A" & ActiveCell.Row).Rows(1).EntireRow.Delete
            MyRange.EntireRow.Delete
        End If

        .Protect Password:="123456"
    End With
End Sub

Answer 2

    Private Sub CommandButton24_Click()
        ThisWorkbook.Worksheets("GanttChart").Unprotect Password:="123456"

        Dim MyRange As Range
        Dim TestRange As Range

        Set TestRange = ThisWorkbook.Worksheets("GanttChart").Range("A1:AZ7")
        Set MyRange = ActiveCell

        If Not Application.Intersect(MyRange, TestRange) Is Nothing Then
        Else
            ThisWorkbook.Worksheets("GanttChart").Range("A" & ActiveCell.Row).Rows(1).EntireRow.Delete
        End If

        ThisWorkbook.Worksheets("GanttChart").Protect Password:="123456"
    End Sub