Hey guys, what's up?
Here at my company we use a sheet where people fill in actions that need to be done and the deadlines. What i need is that the cells to be protected after it is filled and for that i found many codes likes this:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("I3:I1000")) Is Nothing Then
Me.Unprotect ("123")
Target.Locked = True
Me.Protect ("123")
End If
End Sub
That code does work, but after i fill the cell and it gets locked, i'm not able anymore to sort or use filters on the sheet. We really need the filter to see the status of the actions.
Could you help me please?
Here at my company we use a sheet where people fill in actions that need to be done and the deadlines. What i need is that the cells to be protected after it is filled and for that i found many codes likes this:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("I3:I1000")) Is Nothing Then
Me.Unprotect ("123")
Target.Locked = True
Me.Protect ("123")
End If
End Sub
That code does work, but after i fill the cell and it gets locked, i'm not able anymore to sort or use filters on the sheet. We really need the filter to see the status of the actions.
Could you help me please?