Lock cell in range(s) after input issue

Hello

I have had some excellent help setting up the attached file with code that locks the cells in the range after input. This works as intended (example B9).....except for an instance where the user does not input anything and presses other keys like the delete key (example C9) This results in the cell being locked even though there was nothing inputted in the cell. Subsequently nothing can be inputted in that cell until the admin unlocks. is there a way to modify the code to prevent this issue
(Ideally the best case scenario would be to lock only if the cell above has passed the data verification for that cell )

The current code is below

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("b9:h9, b12:h12, b19:h19, b21:h21, b31:h31")) Is Nothing Then Exit Sub
ActiveSheet.Unprotect Password:="cream"
Target.Locked = True
ActiveSheet.Protect Password:="cream"
End Sub

Maybe try:

Please Login or Register  to view this content.

You're welcome. Thanks for the rep.



If you are satisfied with the solution(s) provided, please mark your thread as Solved.


New quick method:
Select Thread Tools-> Mark thread as Solved. To undo, select Thread Tools-> Mark thread as Unsolved.

Or you can use this way:

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save


You may also want to consider thanking those people who helped you by clicking on the little star at the bottom left of their reply to your question.