XL 2016 Verrouillage de cellule après saisie dans un document partagé en ligne

Bonjour,

J'ai intégré ce code à mon document:
Dim xRg As Range
On Error Resume Next
Set xRg = Intersect(Range("A1:X40"), Target)
If xRg Is Nothing Then Exit Sub
Target.Worksheet.Unprotect Password:="123"
If xRg.Value <> mStr Then xRg.Locked = True
Target.Worksheet.Protect Password:="123"

Le but est que les élèves puissent réserver eux-mêmes leur plage horaire mais qu'ils ne puissent plus modifier le document une fois leur réservation faite. Le code fonctionne quand je teste sur mon ordinateur mais ne fonctionne plus une fois le document partagé sur sharepoint, one drive ou google drive. J'ai besoin de rendre le document accessible à mes élèves en ligne mais de limiter leur contrôle pour le modifier et je ne comprends pas comment faire.

Merci.