Impossible de protèger des cellules
bonjour,
fichier excel avec macros évènementielle.
ce fichier sert à être partagé sur un forum via One Drive
L'ensemble fonctionne bien SAUF que :
One drive ouvre EXCEL et le classeur que j'ai inclus en lien
Excel étant ouvert, tous les fonctionnalités de la barre d'outil (sauf développement) sont à la "disposition" des utilisateurs.
ce qui permet de faire des modifs/suppression d'info et donc rend mon fichier obsolette si un gusgus s'amuse dedans.
J'ai donc pensé à le protèger. MAIS
IMPOSSIBLE ! quand je sélectionne les cellules concernées ça bug "erreur 04"
et sur le code c'est ici =>
If sItem = "Liens" And Target <> "" Then
Selection.Hyperlinks.Add Anchor:=Selection, Address:=Target.Value 'active le lien hypertexte
Target.Hyperlinks(1).Follow NewWindow:=True 'ouvre la page WEB
Target.Hyperlinks.Delete 'désactive le lien
Target.Interior.Color = Target.Offset(0, -1).Interior.Color
Target.Borders.LineStyle = Target.Offset(0, -1).Borders.LineStyle
Target.VerticalAlignment = xlVAlignTop
End If
Comment se sortir du piège ?