Insertion image (lien hypertexte grisé)

JCGL

XLDnaute Barbatruc

• 15 Août 2013

• #2

Re : Insertion image (lien hypertexte grisé)

Bonjour à tous,

Tu remets la protection en fin de code : elle ne permet plus la création de lien

Autorise les avec : AllowInsertingHyperlinks:=True

A+ à tous

Edition : Salut JiHeme. Ravi de te croiser.

 

Dernière édition: 15 Août 2013

Vote positif 0 Vote négatif

Jiheme

XLDnaute Accro

• 15 Août 2013

• #3

Re : Insertion image (lien hypertexte grisé)

Bonjour Marcelio

Liens Hypertexte est grise parce que ta feuille est protégée.

A+

Edit : Bonjour JCGL, Trop rapide

 

Vote positif 0 Vote négatif

M

marcelio

XLDnaute Occasionnel

• 15 Août 2013

• #4

Re : Insertion image (lien hypertexte grisé)

Bonjour JCGl, Jiheme,

JCGL j'ai testé ta solution mais c'est toujours pareil le lien hypertexte est grisé et "AllowInsertingHyperlinks:=True" est rouge
Peux tu STP m'indiquer l'endroit exact ou l’insérer par rapport à mon code.
Merci

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 15 Août 2013

• #5

Re : Insertion image (lien hypertexte grisé)

Bonjour à tous,

Peux-tu essayer avec

VB:

Sub insere_image()
    Dim ficimg As Variant
    ActiveSheet.Unprotect
    'On Error Resume Next
    Application.Dialogs.Item(xlDialogInsertPicture).Show
    With Selection
        .Locked = False
        .PrintObject = True
        .Placement = xlMoveAndSize
    End With
    'ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:= _
        "http://www.excel-downloads.com/forum/209650-insertion-image-lien-hypertexte-grise.html"
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowInsertingHyperlinks:=True
    ActiveSheet.EnableSelection = xlUnlockedCells
End Sub

A+ à tous

 

Vote positif 0 Vote négatif

M

marcelio

XLDnaute Occasionnel

• 15 Août 2013

• #6

Re : Insertion image (lien hypertexte grisé)

Oui JCGL cela fonctionne bien,
Mais j'aurais bien aimer que ma feuille est une protection avec mot de passe.
Crois tu que cela peut être possible

A+ Marcelio

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 15 Août 2013

• #7

Re : Insertion image (lien hypertexte grisé)

Bonjour à tous,

Rajoute ton mot de passe derrière :

ActiveSheet.Unprotect "xxxxx"

Cliquez pour agrandir...

et

ActiveSheet.Protect "xxxxx" DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowInsertingHyperlinks:=True
ActiveSheet.EnableSelection = xlUnlockedCells

Cliquez pour agrandir...

A+ à tous

 

Vote positif 0 Vote négatif

M

marcelio

XLDnaute Occasionnel

• 15 Août 2013

• #8

Re : Insertion image (lien hypertexte grisé)

Impossible

ActiveSheet.Protect "xxxxx" DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowInsertingHyperlinks:=True

Ce met en rouge

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 15 Août 2013

• #9

Re : Insertion image (lien hypertexte grisé)

Bonjour à tous,

Toutes mes excuses :

ActiveSheet.Protect "xxxxxl", DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowInsertingHyperlinks:=True
ActiveSheet.EnableSelection = xlUnlockedCells

Cliquez pour agrandir...

A+ à tous

 

Vote positif 0 Vote négatif

M

marcelio

XLDnaute Occasionnel

• 15 Août 2013

• #10

Re : Insertion image (lien hypertexte grisé)

Super JCGL
cela fonctionne à merveille
Je te remercie beaucoup de l'aide et de ta patience.
Merci et bonne journée à toi et au forum
Marcelio

 

Vote positif 0 Vote négatif