Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Lien hypertexte / empècher supprimé

Lien hypertexte / empècher supprimé

13 réponses
Avatar
Aiwa
Bonjour,
J'ai faite un onglet Index pour référé au autre onglet que j'ai pour que la
recherche soit plus facile.
Dans l'onglet index j'ai créer des lien hypertexte , le probleme est que
j'aimerais que les gens puisse seulement pouvoir sélectionner le lien
hypertexte, pcq présentement il peuvent l'efface le copier le déplacer.
comment puis-je faire pour qu'il puisse juste sélectionne le lien.

Merci à l'avance
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Céline Brien
Dans un de mes fichiers, j'ai créé des liens vers les autres onglets du
fichier et je ne peux les supprimer lorsque la feuille contenant les liens
est protégée.
Ne pas déverrouiller les cellules contenant les liens !
Céline

"Aiwa" a écrit dans le message de news:

Cest vrai je ne peut l'effacer, mais cest des adresse internet, moi au
lieu
de m'amener a des adresse internet moi cest toute dans le meme ficher qui
fait référence a des onglet, cest tu pour ca que je peut l'effacer


Un fichier exemple http://cjoint.com/?eoaahtGOQO fait avec Excel 2003

Si tu peux supprimer un lien hypertexte, dis moi comment tu fais...
moi, je ne suis pas capable !




"Aiwa" a écrit dans le message de news:

Re....
Ca marche toujours pas, je peut encore effacer les lien hypertexte que
j'ai
dans mon onglet Index.


J'ai omis un petit mot dans la procédure : NOT
Essaie ceci ...
'--------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
If Target.Hyperlinks.Count > 0 Then
Sheets(Target.Parent.Name).Protect
Else
Sheets(Target.Parent.Name).Unprotect
End If
Else
Sheets(Target.Parent.Name).Unprotect
End If
End Sub
'--------------------------------

N.B- Tu n'as pas à protéger ta feuille, la procédure s'en charge
si tu sélectionne une cellule qui a un lien hypertexte



"Aiwa" a écrit dans le message de
news:

Bonjour MichDenis
J'ai protégez ma feuille et mis ta macro dans la bonne feuille index.
j'ai
modifier plage B4: D15 ou son situé mes hypertext
ca fonctionne pas je peut efface mon hypertext, si je clic un fois
dessus,
ca m'amème a la bonne place, sauf si je maintien dans la cellule par la
suite
je peut l'effacer.
Y a t'il de quoi que j'ai pas bien fait ?


Lorsque tes liens hypertextes sont saisis dans ta feuille de calcul
en supposant qu'ils soient situés dans la plage A1:A10

colle dans le module feuille où l'action se déroule ceci :
'----------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Intersect(Target, Range("A1:A10")) Is Nothing Then
If Target.Hyperlinks.Count > 0 Then
Sheets(Target.Parent.Name).Protect
Else
Sheets(Target.Parent.Name).Unprotect
End If
End If
End Sub
'----------------------



"Aiwa" a écrit dans le message de
news:

Bonjour,
J'ai faite un onglet Index pour référé au autre onglet que j'ai pour
que la
recherche soit plus facile.
Dans l'onglet index j'ai créer des lien hypertexte , le probleme est
que
j'aimerais que les gens puisse seulement pouvoir sélectionner le lien
hypertexte, pcq présentement il peuvent l'efface le copier le
déplacer.
comment puis-je faire pour qu'il puisse juste sélectionne le lien.

Merci à l'avance

















Avatar
Aiwa
Bonjour Céline
Mon erreur était que j'avais déverrouiller les cellules alors meme s'il
était protégez j'avais acces quand même, j'ai vérrouiller les cellules et ca
fonctionne meme sans la macro.

Merci a vous deux de votre aide, très apprécier




Dans un de mes fichiers, j'ai créé des liens vers les autres onglets du
fichier et je ne peux les supprimer lorsque la feuille contenant les liens
est protégée.
Ne pas déverrouiller les cellules contenant les liens !
Céline

"Aiwa" a écrit dans le message de news:

Cest vrai je ne peut l'effacer, mais cest des adresse internet, moi au
lieu
de m'amener a des adresse internet moi cest toute dans le meme ficher qui
fait référence a des onglet, cest tu pour ca que je peut l'effacer


Un fichier exemple http://cjoint.com/?eoaahtGOQO fait avec Excel 2003

Si tu peux supprimer un lien hypertexte, dis moi comment tu fais...
moi, je ne suis pas capable !




"Aiwa" a écrit dans le message de news:

Re....
Ca marche toujours pas, je peut encore effacer les lien hypertexte que
j'ai
dans mon onglet Index.


J'ai omis un petit mot dans la procédure : NOT
Essaie ceci ...
'--------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
If Target.Hyperlinks.Count > 0 Then
Sheets(Target.Parent.Name).Protect
Else
Sheets(Target.Parent.Name).Unprotect
End If
Else
Sheets(Target.Parent.Name).Unprotect
End If
End Sub
'--------------------------------

N.B- Tu n'as pas à protéger ta feuille, la procédure s'en charge
si tu sélectionne une cellule qui a un lien hypertexte



"Aiwa" a écrit dans le message de
news:

Bonjour MichDenis
J'ai protégez ma feuille et mis ta macro dans la bonne feuille index.
j'ai
modifier plage B4: D15 ou son situé mes hypertext
ca fonctionne pas je peut efface mon hypertext, si je clic un fois
dessus,
ca m'amème a la bonne place, sauf si je maintien dans la cellule par la
suite
je peut l'effacer.
Y a t'il de quoi que j'ai pas bien fait ?


Lorsque tes liens hypertextes sont saisis dans ta feuille de calcul
en supposant qu'ils soient situés dans la plage A1:A10

colle dans le module feuille où l'action se déroule ceci :
'----------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Intersect(Target, Range("A1:A10")) Is Nothing Then
If Target.Hyperlinks.Count > 0 Then
Sheets(Target.Parent.Name).Protect
Else
Sheets(Target.Parent.Name).Unprotect
End If
End If
End Sub
'----------------------



"Aiwa" a écrit dans le message de
news:

Bonjour,
J'ai faite un onglet Index pour référé au autre onglet que j'ai pour
que la
recherche soit plus facile.
Dans l'onglet index j'ai créer des lien hypertexte , le probleme est
que
j'aimerais que les gens puisse seulement pouvoir sélectionner le lien
hypertexte, pcq présentement il peuvent l'efface le copier le
déplacer.
comment puis-je faire pour qu'il puisse juste sélectionne le lien.

Merci à l'avance






















Avatar
Céline Brien
Super !
Avec de la tenacité on peut tout !

"Aiwa" a écrit dans le message de news:

Bonjour Céline
Mon erreur était que j'avais déverrouiller les cellules alors meme s'il
était protégez j'avais acces quand même, j'ai vérrouiller les cellules et
ca
fonctionne meme sans la macro.

Merci a vous deux de votre aide, très apprécier




Dans un de mes fichiers, j'ai créé des liens vers les autres onglets du
fichier et je ne peux les supprimer lorsque la feuille contenant les
liens
est protégée.
Ne pas déverrouiller les cellules contenant les liens !
Céline

"Aiwa" a écrit dans le message de news:

Cest vrai je ne peut l'effacer, mais cest des adresse internet, moi au
lieu
de m'amener a des adresse internet moi cest toute dans le meme ficher
qui
fait référence a des onglet, cest tu pour ca que je peut l'effacer


Un fichier exemple http://cjoint.com/?eoaahtGOQO fait avec Excel 2003

Si tu peux supprimer un lien hypertexte, dis moi comment tu fais...
moi, je ne suis pas capable !




"Aiwa" a écrit dans le message de
news:

Re....
Ca marche toujours pas, je peut encore effacer les lien hypertexte que
j'ai
dans mon onglet Index.


J'ai omis un petit mot dans la procédure : NOT
Essaie ceci ...
'--------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
If Target.Hyperlinks.Count > 0 Then
Sheets(Target.Parent.Name).Protect
Else
Sheets(Target.Parent.Name).Unprotect
End If
Else
Sheets(Target.Parent.Name).Unprotect
End If
End Sub
'--------------------------------

N.B- Tu n'as pas à protéger ta feuille, la procédure s'en charge
si tu sélectionne une cellule qui a un lien hypertexte



"Aiwa" a écrit dans le message de
news:

Bonjour MichDenis
J'ai protégez ma feuille et mis ta macro dans la bonne feuille
index.
j'ai
modifier plage B4: D15 ou son situé mes hypertext
ca fonctionne pas je peut efface mon hypertext, si je clic un fois
dessus,
ca m'amème a la bonne place, sauf si je maintien dans la cellule par
la
suite
je peut l'effacer.
Y a t'il de quoi que j'ai pas bien fait ?


Lorsque tes liens hypertextes sont saisis dans ta feuille de
calcul
en supposant qu'ils soient situés dans la plage A1:A10

colle dans le module feuille où l'action se déroule ceci :
'----------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Intersect(Target, Range("A1:A10")) Is Nothing Then
If Target.Hyperlinks.Count > 0 Then
Sheets(Target.Parent.Name).Protect
Else
Sheets(Target.Parent.Name).Unprotect
End If
End If
End Sub
'----------------------



"Aiwa" a écrit dans le message de
news:

Bonjour,
J'ai faite un onglet Index pour référé au autre onglet que j'ai
pour
que la
recherche soit plus facile.
Dans l'onglet index j'ai créer des lien hypertexte , le probleme
est
que
j'aimerais que les gens puisse seulement pouvoir sélectionner le
lien
hypertexte, pcq présentement il peuvent l'efface le copier le
déplacer.
comment puis-je faire pour qu'il puisse juste sélectionne le lien.

Merci à l'avance
























1 2