Hola a tod@s.

Tengo libro con 50 hojas.

Sub OcultarExceptoActiva() Dim Ws As Worksheet For Each Ws In ThisWorkbook.Worksheets If Ws.Name <> ActiveSheet.Name Then Ws.Visible = xlSheetHidden Next Ws End Sub

Hace lo que dice. Pero el problema está en que no obedece a sus vínculos.

¿Se podría solucionar?

Agradecido de antemano.

Si te refieres a que la hoja activa tiene objetos con vínculos a las hojas que se han ocultado, no podrás por ese mismo detalle. Los vínculos no te pueden llevar a una hoja oculta.

Tienes que modificar un poco tu sentencia a xlSheetVisible antes.

Hola Israel.

Si, claro me refiero a los que dices.

No creo que sea insoslayable el problema.

Tiene que haber alguna forma/manera , por eso pregunto.

Si pongo = xlVisible las hojas no se ocultarán.

Muchas gracias por todo.

 

 

Hola.

Lo he intentado de mil maneras y no lo consigo.

Como puedo abrir el libro en la última hoja abierta, con todas las demás ocultas.

Y que funcionen los hipervínculos a cualquier otra hoja.

¿Es posible?

Adjunto libro muestra.

MUCHISIMAS GRACIAS.

Libro1.xlsm

Estimado @Pedro Alonso ya has hecho esa pregunta y nuevamente se te dice: No hay forma de hacerlo como deseas, a través de vínculos no se puede mostrar una hoja ya oculta, necesariamente también tienes que mostrarlas por macros para lo que los vínculos creados no te serán útiles. No se trata solo de creer algo y que por creer pues se va a poder.

Buenas, ya se te contesto en este hilo Casi Funciona

saludos

 

Bon día @Pedro Alonso

hace 31 minutos , Pedro Alonso dijo:

Podrías haber tratado de saber porqué mi reiteración, y no abroncarme.

no veo donde te abronco.

hace 33 minutos , Pedro Alonso dijo:

Creus que estic perdent el temps si hagués solucionat la qüestió?

pues para no hacer perder el tiempo a los demás , lo primero que tenias haber echo es poner un titulo acorde con tu necesidad lo segundo una buena descripción de tu problema y lo mas importante un archivo donde tienes el problema.

hace 35 minutos , Pedro Alonso dijo:

Me parece que pecas un poco de engrehído.

desde luego el que no va a perder más tiempo con tus problemas soy yo.

salutacions i que tinguis un bon dia

 

Cita

Y que funcionen los hipervínculos a cualquier otra hoja.

Se te ha dicho, por activa y por pasiva, que lo que pides no es posible.

Los vínculos solo funcionan con hojas visibles. ¿Que parte no entiendes?

Por cierto, lo de COLLONS sobra, ¡Maleducado!

Hola Antoni.

Pégale una mirada.

https://es.extendoffice.com/documents/excel/4188-how-to-follow-hyperlink-to-hidden-sheet-in-excel.html

Estas equivocado. Si pueden funcionar.

Toni, puede que te sirva.

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
   'Updateby Extendoffice
    Application.ScreenUpdating = False
    Dim strLinkSheet As String
    If InStr(Target.Parent, "!") > 0 Then
        strLinkSheet = Left(Target.Parent, InStr(1, Target.Parent, "!") - 1)
    Else
        strLinkSheet = Target.Parent
    End If
    Sheets(strLinkSheet).Visible = True
    Sheets(strLinkSheet).Select
    Application.ScreenUpdating = True
End Sub

Private Sub Worksheet_Activate()
    On Error Resume Next
    Sheets(ActiveCell.Value2).Visible = False
End Sub
 

Bye.

Hola @Pedro Alonso

De manera sincera me da gusto que hayas encontrado una solución a tu cuestionamiento buscando por la WEB. Puntualizando un poco las indicaciones mostradas refuerzan lo que hemos venido recomendándote.

Lo que encontraste:

Lo que hemos comentado:

En 23/2/2023 at 17:25 , Israel Cassales dijo:

Tienes que modificar un poco tu sentencia a xlSheetVisible antes.

 

En 23/2/2023 at 19:16 , Abraham Valencia dijo:

necesariamente también tienes que mostrarlas por macros para lo que los vínculos creados no te serán útiles.

 

En 24/2/2023 at 3:04 , Antoni dijo:

Los vínculos solo funcionan con hojas visibles. ¿Que parte no entiendes?

No se trata de tomar posturas ni hacerlo algo personal, pero das la impresión que lo encontraste y lo primero que hiciste fue venir a señalar a @Antoni y por añadidura a los demás participantes porque lo consideras nuestro error.

hace 22 minutos , Pedro Alonso dijo:

Estas equivocado. Si pueden funcionar.

Sí, pueden funcionar de la forma en la que hemos venido (repito) sugiriendo.

Aunque sería bueno dedicarle un poco de tiempo a leer todo lo que contiene lo que nos mandaste:

 

En resumen la respuesta es la misma, NO PUEDES SEGUIR UN HIPERVINCULO  EN UNA HOJA OCULTA, debes hacer una sentencia previa por VBA. Al día de hoy es la única opción, no se trata de egos ni nada por el estilo.

La experiencia nos muestra que uno es responsable de lo que escribe y dice, no de cómo lo sientan o entiendan los demás. Con este mensaje cierro mi participación en este tema agregando que aporta algo bueno que es indexar más comentarios para que lleguen más usuarios a este foro que es de los mejores que hay.

Saludines.

 

hace 38 minutos , Pedro Alonso dijo:

 

Estas equivocado. Si pueden funcionar.

Estimado, por favor, un poco más de lectura si vas a usar VBA. Ya Israel lo dijo ampliamente: No se puede como tú creías, se puede como te decíamos.

Conclusión, los vínculos no funcionan con hojas ocultas.

Tengo una duda @JSDJSD como haces esos gif! deberías compartir esos tips de como haces los mini videos y estas otras cosas.

Saludos 

 

Hola José.

No se a que te refieres con gif!. Soy nuevo en esto, tengo 70, y como jubilado he adoptado EXCEL como hoby.

No he tenido, tengo, ni tendré , reparo en compartir mis poquísimos conocimientos. 

Dime, o ponme un ejemplo a que te refieres.

SALUDOS

hace 7 horas, Pedro Alonso dijo:

Hola José.

No se a que te refieres con gif!. Soy nuevo en esto, tengo 70, y como jubilado he adoptado EXCEL como hoby.

No he tenido, tengo, ni tendré , reparo en compartir mis poquísimos conocimientos. 

Dime, o ponme un ejemplo a que te refieres.

SALUDOS

Definición de GIF

Solo hay que buscarlo en Google.