classeur partagé VBA - protection - help me

Bonjour a tous

j ai un code :

If Not Intersect(target, Range("T4:T7500")) Is Nothing Then
If target <> "" Then
If target.Offset(0, -1) = "" Then target.Offset(0, -1) = Date & " " & Time
Else
target.Offset(0, -1) = ""
End If
End If
End Sub

qui permet de mettre une date et une heure dans la colonne S qd une cellule de la colonne T est remplie.

Mon Probleme , la colonne S ou l heure doit etre marqué est verouillé , donc le code VBA ne marche plus .erreur 1004 .

donc comment faire

Sachant qu en plus le classeur est partagé


Merci pour votre aide