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

GT96

XLDnaute Nouveau
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.
 

Pièces jointes

  • Réservation de laboratoire3.xlsx
    16.2 KB · Affichages: 3

Statistiques des forums

Discussions
311 724
Messages
2 081 936
Membres
101 844
dernier inscrit
pktla