Password protect for multiple cell

[ang3lb3ltran]

I have a problem, In the past I did a VBA to protect a single cell with a password and now I want to do the same thing with multiple cells, the problem is that I don't know how to adapt this to more cells:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Address = Range("A10").Address Then
pword = InputBox("Enter Password To Edit State:")
If pword = "supslp2020" Then ActiveCell.Select Else ActiveCell.Offset(1,0).Select
End If
End Sub

[unit285]

Could make a list of cells you want locked? - Attached a sample

Please Login or Register  to view this content.

[ang3lb3ltran]

It really works.

Thank you.

[unit285]

It really works.

Thank you.

Glad it works! Once done with this thread don't forget to set it to Solved.