Repeat Row / Insert Row Macro (not Alt I-R)

[GallowayJay]

Hello....I want to create a Macro that would do the following:

If the row above it (some specific cell) contains data, I want Excel to automatically add a row below it. This would be similar to what Access does. I want to do this so that a user can enter information into a protected sheet without having to unprotect it, add the rows, and reprotect it. This will cut down errors. Can anyone help?

[Tom Schreiner]

Maybe this will get you started...

Private Sub Worksheet_Change(ByVal Target As Range)

Dim SomeSpecificRange As Range
Set SomeSpecificRange = Range("A4") ' or whichever range you choose

If Target.Address = SomeSpecificRange.Address Then
ActiveSheet.Unprotect password:="YourPassword"
Rows(Target.Row + 1 & ":" & Target.Row + 1).Insert Shift:=xlDown
Target.Locked = False
ActiveSheet.Protect password:="YourPassword"
End If
End Sub

Tom