Trying to lock cells in one worksheet depending on value in another worksheet cell

[ShutterAce]

Hello,

Any ideas as to why this will not run. I've been playing with it all day and can't figure out why it stops after the If statement is evaluated.

I'd bet money it's something minute I'm overlooking but I can't find it. I have changed everything I can think of in the two statements regarding the locking of the cells with no change in behavior.

Private Sub Worksheet_Change(ByVal Target As Range)
    If ActiveWorkbook.Sheets("Measure_Cut").Range("E3").Text = "0" Then
        ActiveWorkbook.Sheets("Notching").Range("E16:E18").Locked = False
    Else
        ActiveWorkbook.Sheets("Notching").Range("E16:E18").Locked = True
    End If
End Sub

Thank you!

 

[ShutterAce]

This one worked.

Thanks Jason.

Thank you both for trying!

I checked this code below and has no problems.
It has to go in Measure_Cut sheet code.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Application.ScreenUpdating = False
    If Worksheets("Measure_Cut").Range("E3").Text = "0" Then 'Change 0 if needed
        Worksheets("Notching").Select
        ActiveSheet.Unprotect Password:=1234 'Change 1234 to your password
        Worksheets("Notching").Range("E16:E18").Locked = False
        ActiveSheet.Protect Password:=1234 'Change 1234 to your password
        Worksheets("Measure_Cut").Select
        Application.EnableEvents = True
        Application.ScreenUpdating = True
    Else
        Worksheets("Notching").Select
        ActiveSheet.Unprotect Password:=1234 'Change 1234 to your password
        Worksheets("Notching").Range("E16:E18").Locked = True
        ActiveSheet.Protect Password:=1234 'Change 1234 to your password
        Worksheets("Measure_Cut").Select
Application.ScreenUpdating = True
Application.EnableEvents = True
    End If
End Sub

 

[Jason Barnes]

This one worked.

Thanks Jason.

Thank you both for trying!

You are more than welcome!