Trying to lock entire row from editing if value in column N = TRUE

[asthmatic_weasel]

Good afternoon all,

I have a excel sheet that is an output from a powershell script. We will to run the powershell script again and want to make sure that certain rows are not overwritten. I am ok at VBA but not amazing by any standard and have tried to place the following code.

Private Sub Worksheet_Calculate()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
Me.Unprotect
For i = 1 To LR
With Range("N" & i)
If .Value = "TRUE" Then .EntireRow.Locked = True
End With
Next i
Me.Protect
End Sub

However it still allows me to edit cells that should be locked. Does anyone think this would work? Am I close to getting it to work or am I completely wrong? Have I missed a step somewhere maybe?

Just for honesty and integrity that code above was found on the internet and I copied and adjusted as I saw suitable.

Any help or pointers would be great

 

[rollis13]

Perhaps, if the problem is the last rows, the data in column A is equal to the data in column N, I mean, is column N is longer than column A ?

 

[asthmatic_weasel]

Update - It was a mistake on my part. I hadn't removed protection before apply the code. Once I had removed the workbook protection and then applied the code. it worked as I had hoped. I should always double check my work.

 

[rollis13]

Are you sure ? your macro already has .Unprotect/.Protect for Sheet protection and the Workbook protection doesn't affect your sheet. Maybe the issue was in the powershell script, not in the macro you showed.