Re: Collegamento ipertestuale ad un foglio excel nascosto

[Rémi]

Ciao,

È possibile, pero soltanto usando il VBA.

Devi aprire il VBA (Alt + F11) e fare un doppio clic sul foglio in cui c'è
il collegamento ipertestuale (nel modulo VBA !) :

copia e incolla la macro seguente :

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'guarda se il foglio è nascosto e lo mette visibile in questo caso
If Target.Hyperlinks.Count = 1 Then
If InStr(1, Target.Hyperlinks(1).SubAddress, "!", vbBinaryCompare) > 0 Then
nomfeuille = Mid(Target.Hyperlinks(1).SubAddress, 1, InStr(1,
Target.Hyperlinks(1).SubAddress, "!", vbBinaryCompare) - 1)
If Sheets(nomfeuille).Visible = xlVeryHidden Then
Sheets(nomfeuille).Visible = Visible
End If
DoEvents
Application.Goto
Sheets(nomfeuille).Range(Target.Item(1).Hyperlinks(1).SubAddress), True
End If
End If
End Sub

Dopo, fa un doppio clic sul foglio di destinazione e copia incolla questa
macro (devi cambiare "toto" con il nome del tuo foglio :

Private Sub Worksheet_Deactivate()
'nasconde il foglio toto
Sheets("toto").Visible = xlVeryHidden
End Sub

--
Alcuni esempi VBA Excel
http://remigueudelot.free.fr/

Spero di aver risposto bene alla tua domanda.
Rémi.

"Nicolo'" <Nicolo'@discussions.microsoft.com> a écrit dans le message de
news:9963500B-774A-4A59...@microsoft.com...
> E' possibile linkare con un collegamento ipertestuale un foglio excel
nascosto?
>
> GRAZIE

[Max]

Ho porvato questa soluzione e funziona alla grande.
Un altro dubbio peò: Posso fare in modo tale che nei file di destinazione in
cui copio il codice:

> Private Sub Worksheet_Deactivate()
> 'nasconde il foglio toto
> Sheets("toto").Visible = xlVeryHidden
> End Sub

non debba tutte le volte andare a modificare il nome del foglio (Es. Toto)
ma lo prenda in automatico dal nome del foglio stesso in cui lo copio?

Grazie mille

"Rémi" ha scritto: