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:
- Clic derecho sobre la pestaña que queremos ocultar, damos clic en la opción ocultar.
- 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)
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:
Para lograr esto necesitamos:
1. Abrir el editor de Visual Basic para Aplicaciones. (Alt + F11)
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:
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.
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