Protect Formula in "New Row"

[fizzwolf]

I have the code:

Sub Add_New_Row()
Application.ScreenUpdating = False
Dim Ws As Worksheet
Dim Target As Range
Dim Lrow As Long

Set Ws = ActiveSheet
Lrow = Ws.Range("A" & Rows.Count).End(xlUp).Row
Set Target = Ws.Cells(Lrow, 1)

Ws.Range(Cells(Target.Row, 1), Cells(Target.Row, 11)).Copy
Target.Offset(1, 0).PasteSpecial xlPasteFormats, xlPasteSpecialOperationNone

Ws.Range(Cells(Target.Row, 8), Cells(Target.Row, 11)).Copy
Target.Offset(1, 7).PasteSpecial (xlFormulas)

Target.Offset(1, 0).Value = Target + 1
Target.Offset(2, 0).EntireRow.Insert

End Sub

Where a new row is inserted via a "button" on the sheet. What I also need is for the "New Row" to protect the formula included in it to stop anyone from changing those formula.

[TMS]

You'd have to lock the cells (the default) and protect the worksheet with a password to protect the formulae.

Which implies you'd have to unlock any cells where you want the users to input data.

[fizzwolf]

That doeesn't work had already tried that. It stops the VBA code from working.

[TMS]

What VBA Code? If it's just this code, add Ws.Unprotect at the beginning and Ws.Protect at the end.

[fizzwolf]

Thank you - works perfectly

[TMS]

You're welcome.