限制删除特定范围内的行

Question

I have simple code for deleting rows by selecting specific cell. The problem is that It should not be allowed to delete rows in range A1:AZ7 I guess I need if statement for this operation? What it should be?

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

Answer 3

At the moment you are checking if the ranges does not not intersect. Try it again without the "not" in the if statement. The not and is nothing are cancelling each other out.