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