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 ?

Rechercher des sujets similaires à "impossible proteger"