intensified89
New Member
- Joined
- Mar 16, 2022
- Messages
- 6
- Office Version
- 2016
- Platform
- Windows
I'm trying to lock certain cells within the same row whenever one of the cell is being updated by a formula. This will be repeated for multiple rows. Currently I have the following macro, but it only allows the update whenever the user manually inputs, but doesn't work for updates by formula.
VBA Code:
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect
If Not Intersect(Target, Range("AM:AM")) Is Nothing Then Exit Sub
Select Case Target.Value
Case "L"
Range("T" & Target.Row & ":AA" & Target.Row).Locked = True
Range("AG" & Target.Row & ":AH" & Target.Row).Locked = True
Case Else
Range("T" & Target.Row & ":AA" & Target.Row).Locked = False
Range("AG" & Target.Row & ":AH" & Target.Row).Locked = False
End Select
ActiveSheet.Protect UserInterfaceOnly:=True, AllowFiltering:=True
End Sub