En este artículo, crearemos una macro para ocultar la hoja de Excel. La hoja de Excel se oculta cambiando sus propiedades usando el código VBA. La hoja de Excel oculta no se puede hacer visible utilizando el botón Mostrar en la aplicación de Excel.
En este ejemplo, hemos creado un formulario de registro de puerta.
Cuando el usuario ingresa los detalles en el formulario y hace clic en el botón Enviar, los detalles se guardan en la hoja de "Datos". Al botón "Enviar" se le asigna la macro "SubmittingDetail".
La hoja de "Datos" puede ocultarse o mostrarse haciendo clic en el botón "Hoja de datos". Si la hoja "Datos" está oculta, no se puede hacer visible mediante la opción de mostrar disponible dentro de la hoja de Excel.
La hoja oculta mediante el botón "Hoja de datos" permanece visible en el explorador del proyecto en el VBE (Editor de Visual Basic) y las propiedades de la hoja oculta se establecen en xlSheetVeryHidden.
La hoja también se puede hacer muy oculta sin usar código VBA. Para eso, tenemos que abrir el VBE y establecer la propiedad visible de la hoja en la ventana de propiedades en 2 - xlSheetVeryHidden.
Para ocultar una hoja, de modo que nadie pueda mostrarla sin conocer la contraseña del Proyecto Vb, simplemente oculte el archivo utilizando el código VBA o cambie la propiedad visible de la hoja a 2, es decir, xlsheetveryhidden y bloquee el Proyecto Vb junto con la contraseña.
Para proteger Vb Project con contraseña, haga clic con el botón derecho en Objeto de Microsoft Excel> Seleccionar propiedades de VBAProject…> Aparecerá el cuadro de diálogo VBAProject Properties.
En el cuadro de diálogo Propiedades de VBAProject, vaya a la pestaña Protección> marque la casilla para bloquear el proyecto> asigne la contraseña para el proyecto. La contraseña que asignamos para el archivo adjunto es "registrar". Se puede asignar cualquier contraseña para el proyecto.
El botón "Hoja de datos" se utiliza tanto para ocultar como para mostrar la hoja. Al botón "Hoja de datos" se le asigna la macro "ToggleHidingDataSheet". Cuando el usuario hace clic en el botón y si el archivo está oculto, la hoja se hace visible y si la hoja está visible, la hoja está oculta.
La hoja se puede hacer visible haciendo clic en el botón "Hoja de datos" o cambiando la propiedad visible de nuevo a 0, es decir, xlSheetNormal usando la contraseña del VBProject.
Siga a continuación para obtener el código
Sub SubmittingDetail () Dim LastRow As Long 'Encontrar la última fila en la hoja "Datos"' donde se deben insertar los datos LastRow = Sheets ("Data"). Range ("A1"). SpecialCells (xlLastCell) .Row + 1 'Insertar datos en la hoja "Datos" con hojas ("Datos")' Asignar número de serie .Rango ("A" & LastRow) = LastRow - 1 'Insertar datos en la hoja "Datos" del rango F15 a J15 .Rango ("B "& LastRow &": F "& LastRow) = Rango (" F15: J15 "). Valor Termina con 'Eliminando el contenido de la celda en el rango Rango (" F15: J15 "). Seleccione Selección. Borrar Rango de contenido (" F15 " ) .Seleccione End Sub Sub ToggleHidingDataSheet () 'Verificando si la hoja está actualmente oculta If Sheets ("Data"). Visible = xlVeryHidden Then' Código para hacer que la hoja sea visible Sheets ("Data"). Visible = True Else 'Código para ocultar la hoja Hojas ("Datos"). Visible = xlVeryHidden End If End Sub
Si te gustó este blog, compártelo con tus amigos en Facebook. Además, puede seguirnos en Twitter y Facebook.
Nos encantaría saber de usted, háganos saber cómo podemos mejorar nuestro trabajo y hacerlo mejor para usted. Escríbanos al sitio de correo electrónico
