VBA Code to keep the filter option working for the users beside lock the cell after editing with massage box VBA Code.

[Tariq384]

Please advise , I have the code to lock the cell after editing with massage box , but i want to keep the filter option working for the users.

this the code i have

Private Sub Worksheet_Change(ByVal Target As Range)

ActiveSheet.Unprotect Password:="01234"
For Each cl In Target
If cl.Value <> "" Then
check = MsgBox("Is this entry correct? This cell cannot be changed after entering this value.", vbYesNo, "Cell Lock Notification")
If check = vbYes Then
cl.Locked = True
Else
cl.Value = ""
End If
End If
Next cl
ActiveSheet.Protect Password:="01234"
End Sub

 

[Fluff]

Duplicate VBA Code to lock the cell after data entering with maintaining the filter option

Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread. Per forum rules, posts of a duplicate nature will be locked or deleted (rule 12 here: Forum Rules).