Mostrar u Ocultar Hojas de Excel de manera segura (xlVeryHidden)

17 jun 2019

Mostrar u Ocultar Hojas de Excel de manera segura (xlVeryHidden)


Cuando realizamos trabajos en Excel, necesitamos ocultar hojas a los demás usuarios, y Excel nos da muchas opciones para realizar esta labor, aquí te voy a describir algunas:
la opción una y la mas común es:
Ocultar hojas Excel

  • Clic derecho sobre la pestaña que queremos ocultar, damos clic en la opción ocultar.
Ocultar hojas Excel
  • Para mostrar clic derecho sobre cualquier pestaña, damos clic en la opción mostrar.
Esto también lo podemos realizar con una macro:

Sub Ocultar()
Hoja1.Visible = xlSheetHidden 'ocultamos la hoja Luis Reyes, en lugar de xlSheetHidden podemos utilizar FALSE
End Sub

Sub Mostrar()
Hoja1.Visible = xlSheetVisible 'mostramos la hoja Luis Reyes, en lugar de xlSheetVisible podemos utilizar TRUE
End Sub

Con todo lo anterior hemos logrado ocultar las hojas de manera en la que cualquier usuario puede mostrar nuestras hojas de trabajo. para ocultar nuestras hojas de una manera un poco más segura, podemos utilizar el método "xlVeryHidden", con este método, vamos a evitar que la hoja se pueda mostrar desde el menú contextual de las pestañas de las hojas.
Para lograr esto necesitamos:


1. Abrir el editor de Visual Basic para Aplicaciones. (Alt + F11)
Propiedad xlVeryHidden.webpPropiedad xlVeryHidden.webp

2. En Propiedades de la hoja, en la categoría: Visible seleccionamos la opción: "2 - xlVeryHidden".

Esto también lo podemos realizar con una macro:
Sub Ocultar()
Hoja1.Visible = xlSheetVeryHidden 'ocultamos la hoja Luis Reyes, en lugar de xlSheetHidden podemos utilizar FALSE
End Sub

El mostrar las hojas ocultas se puede complicarse cuando muchas hojas. pero para mostrar todas las hojas ocultas, podemos utilizar el siguiente VBA excel:

Sub MostrarTodasHojas()
    Dim Hojas As Worksheet
     For Each Hojas In ActiveWorkbook.Worksheets
        Hojas.Visible = xlSheetVisible
    Next Hojas

End Sub

Para facilitar toda esta labor Jorge L. Dunkelman en su blog: JLD Excel en Castellano - Usar Microsoft Excel eficientemente, nos obsequia un userform para tener un control de nuestras hojas.




0 comments :

Publicar un comentario