Hi,
I am trying to make a spreadsheet that will be shared but i want the user to enter data only and cannot edit it without a password to protect the data in the cell. I have a code that works very well in Column C but i need it work also in Column A. The code is below, how can i make it work also in Column A.
Thanks so much
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
'The 3 represents column C, change to suit
If Target.Column = 3 And Target.Value <> "" Then
response = InputBox("This field is now protected. Enter password to edit", "Due Date")
'The password MyPass can be what you want and is case sensitive
If response <> "MyPass" Then Target.Offset(, 1).Select
End If
End Sub
Bookmarks