Code not workig in shared mode

[ObiJuan]

Hello,

I have a spreadsheeet that's used as a sign-up sheet. The goal is for a user to be able to enter data (their name) into a cell, then lock it to prevent another user from making changes to that same cell. My code works perfectly until I share the workbook. When it's shared, it seems to completely ignore the events. And since it's shared, the code is locked, making it impossible to step though.

Does anyone have any suggestions on how I can get the code to work in shared mode? Or is there another way to restrict data after the first entry?

Thanks in advance,
Omar

Private Sub Worksheet_SelectionChange(ByVal Target As Range)



Application.DisplayAlerts = False

If Target.Value = Empty Then

ActiveSheet.Unprotect

Else:

ActiveCell.Locked = True

ActiveSheet.Protect

End If
Application.DisplayAlerts = True


End Sub

 

[ObiJuan]

Here's the rest of the code

Private Sub Worksheet_Activate()

Application.EnableEvents = True

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo error:
Dim rng As Range

With ActiveSheet
    .Unprotect

'Only for certain columns and rows
If Target.Column > 1 And Target.Column < 10 Then

    If Target.Row > 85 Then

        Target.Clear
        Exit Sub
    End If

Else: Target.Clear
    Exit Sub
End If


    .Unprotect
    If Target.Value <> Empty Then Target.Locked = True
    .Protect
End With
error:

End Sub