add & delete row base on location of selected row

[maximas]

I have a worksheet, but I want only parts of the worksheet be able to add or delete rows. If I select the cell(1,1) the user can use macro to insert line. If I select (5,1) the user can not use macro to insert line . Example:
A B C D E
1
2
3
4 protected from adding or deleting this row
5 protected from adding or deleting this row
6 protected from adding or deleting this row
7
8

How could I do that!

 

[Zathras]

Try this:

Select the rows you want to protect and assign a range name "ProtectMe"

Then put this macro code in the worksheet module:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
  If Intersect(Target, Range("ProtectMe")) Is Nothing Then
    ActiveSheet.Unprotect
  Else
    ActiveSheet.Protect
  End If
End Sub