Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

¿Cómo establecer una contraseña para proteger la hoja oculta en Excel?

Si tiene un libro de trabajo que contiene algunas hojas de trabajo ocultas importantes, y no permita que otros lo muestren. Ahora, debe establecer una contraseña para proteger las hojas de trabajo ocultas por completo, cuando otros usuarios las muestren, deben ingresar la contraseña. ¿Tiene alguna forma de manejar esta tarea rápida y fácilmente en Excel?

Establecer contraseña para proteger las hojas ocultas con la función VeryHidden

Establecer contraseña para proteger la hoja oculta con código VBA

Proteja varias hojas de trabajo a la vez con Kutools para Excel


Proteja varias o todas las hojas de trabajo a la vez:

Con Kutools for Excel, Proteger hoja de trabajo y Desproteger Hoja de trabajo, puede proteger o desproteger todas las hojas de trabajo dentro de un libro de trabajo con la misma contraseña a la vez.

doc-protect-multiple-sheets-9

Kutools for Excel: con más de 200 útiles complementos de Excel, de prueba sin límite en días 60. Descargar y prueba gratis ahora!


Establecer contraseña para proteger las hojas ocultas con la función VeryHidden


Normalmente, puede usar la función VeryHidden para ocultar las hojas de trabajo primero y luego establecer una contraseña para ellas, por favor siga los siguientes pasos:

1. Abra su libro de trabajo y sostenga Alt + F11teclas para abrir el Ventana de Microsoft Visual Basic para Aplicaciones.

2. En la Ventana de Microsoft Visual Basic para Aplicaciones, haga clic Ver > Proyecto Explorer y Ventana de propiedades to mostrar sus paneles.

doc-protect-hidden-sheets-01

3. Y luego en el Project-VBAProject panel, elija la hoja de trabajo que desea ocultar y en el Propiedades panel, haga clic en la lista desplegable del Visible sección para seleccionar xlSheetVeryHidden opción, ver captura de pantalla:

doc-protect-hidden-sheets-02

4. Después de hacer que la hoja de trabajo esté muy oculta, puede establecer una contraseña para protegerla. En el Ventana de Microsoft Visual Basic para Aplicaciones, haga clic recuadro > Módulo para abrir un módulo vacío, y luego hacer clic Herramientas > Propiedades de VBAProject, mira la captura de pantalla:

doc-protect-hidden-sheets-03

5. Luego en el estallado VBAProject-Project Properties cuadro de diálogo, haga clic en Protección pestaña, y luego verificar Bloquear proyecto para ver cuadro, finalmente, ingrese y confirme la contraseña en el Contraseña para ver las propiedades del proyecto sección, ver captura de pantalla:

doc-protect-hidden-sheets-04

6. Luego haga clic OK para salir de este cuadro de diálogo y cerrar Microsoft Visual Basic para la ventana de Aplicaciones.

7. Guarde el libro de trabajo como Libro de trabajo habilitado para macros de Excel formatee y ciérrelo para que la protección con contraseña entre en vigencia.

doc-protect-hidden-sheets-05

8. La próxima vez, cuando abras este libro de trabajo y quieras que las hojas muy ocultas estén visibles, se te pedirá que ingreses una contraseña. Ver captura de pantalla:

doc-protect-hidden-sheets-06


Demostración: establecer contraseña para proteger las hojas ocultas


Establecer contraseña para proteger la hoja oculta con código VBA

Para configurar una contraseña para proteger las hojas ocultas, también puedo hablar sobre un código VBA para usted.

1. Oculta una hoja de trabajo que quieras proteger.

2. Mantenga presionado el ALT + F11 teclas para abrir el Ventana de Microsoft Visual Basic para Aplicaciones.

3. Entonces escoge ThisWorkbook desde la izquierda Proyecto Explorer, haz doble clic para abrir Módulo, y luego copie y pegue el siguiente código de VBA en el Módulo en blanco:

Código de VBA: configure la contraseña para proteger la hoja oculta

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim xSheetName As String
xSheetName = "Sheet1"
If Application.ActiveSheet.Name = xSheetName Then
    Application.EnableEvents = False
    Application.ActiveSheet.Visible = False
    xTitleId = "KutoolsforExcel"
    response = Application.InputBox("Password", xTitleId, "", Type:=2)
    If response = "123456" Then
        Application.Sheets(xSheetName).Visible = True
        Application.Sheets(xSheetName).Select
    End If
End If
Application.Sheets(xSheetName).Visible = True
Application.EnableEvents = True
End Sub

doc-protect-hidden-sheets-07

Nota: En el código anterior, Sheet1 del xSheetName = "Sheet1" script es el nombre oculto de la hoja de trabajo que desea proteger, y 123456 en el objeto Si response = "123456" Entonces script es la contraseña que configura para la hoja oculta. Puede cambiarlos a su necesidad.

4. Ahora, cuando desee mostrar la hoja oculta, aparecerá un cuadro emergente que le permitirá ingresar la contraseña. Y este cuadro de aviso aparecerá cada vez que haga clic para mostrar la hoja oculta.

doc-protect-hidden-sheets-08


Proteja varias hojas de trabajo a la vez con Kutools para Excel

Si desea proteger varias hojas de trabajo seleccionadas o todas de un libro de trabajo a la vez, normalmente, necesita protegerlas una por una manualmente en Excel. Pero, si tienes Kutools for Excel, Con su Proteger hoja de trabajo utilidad, puede protegerlos con un solo clic.

Kutools for Excel : con más de 300 útiles complementos de Excel, de prueba sin límite en días 60.

Después de instalar Kutools for Excel, haz lo siguiente:

1. Hacer clic Empresa > Proteger hoja de trabajo, mira la captura de pantalla:

doc-protect-hidden-sheets-09

2. En la Proteger hoja de trabajo cuadro de diálogo, todas las hojas de trabajo dentro del libro de trabajo se enumeran en el cuadro de lista, elija las hojas de trabajo que desea proteger. Ver captura de pantalla:

doc-protect-hidden-sheets-010

3. Y luego haz clic OK, en el siguiente cuadro de diálogo, ingrese su contraseña y vuelva a escribirla, luego haga clic OK, aparecerá otro cuadro de aviso para recordarle cuántas hojas de trabajo se han protegido.

doc-protect-hidden-sheets-011

4. Luego haga clic OK para cerrar los diálogos, y todas las hojas de trabajo en el libro de trabajo han sido protegidas con la misma contraseña.

Nota: Si desea desproteger todas las hojas de cálculo a la vez, solo tiene que hacer clic Empresa > Desproteger Hoja de trabajoy escribe tu contraseña para cancelar la protección.

doc-protect-hidden-sheets-012

Descargue y pruebe de forma gratuita Kutools for Excel Now!


Artículos relacionados:

¿Cómo proteger varias hojas de trabajo a la vez en Excel?

¿Cómo establecer una contraseña para proteger el libro de trabajo?

¿Cómo proteger / bloquear el código VBA en Excel?


Kutools for Excel: la mejor herramienta de productividad de Office aumenta su productividad en un 80%

  • Super Formula Bar (edite fácilmente varias líneas de texto y fórmula); Diseño de lectura (lee y edita fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas y mantener datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir células duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Celdas múltiples sin cambiar la referencia de fórmula; Crear referencias automáticamente a múltiples hojas; Insertar viñetas, Casillas de verificación y más ...
  • Fórmulas favoritas e insertadas rápidamente, Gamas, cuadros y cuadros; Cifrar celdas con contraseña Crear una lista de correo y enviar correos electrónicos ...
  • Extracto del texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes / semana / día, frecuencia y más; Filtro especial por negrita, cursiva ...
  • Combinar libros de trabajo y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes xls, xlsx y PDF...
  • Funciona con Office 2007-2019 y 365, y es compatible con todos los idiomas. Es fácil de implementar en su empresa. Funciones completas de prueba gratuita de 60-day.
pestaña kte 201905

Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilitar la edición y lectura con pestañas en Word, Excel, PowerPoint, Editor, Acceso, Visio y Proyecto.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta tu productividad en un 50% y reduce cientos de clics de ratón por ti todos los días!
fondo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Jeremy · 2 years ago
    Your code allows users to view the sheet as long as they hold the left mouse button while the mouse pointer is on the tab.
    Try this to keep sheet hidden until correct password is entered:
    If response = "123456" Then
    Application.Sheets(xSheetName).Visible = True
    Application.Sheets(xSheetName).Select
    Else
    Application.Sheets(xSheetName).Visible = False[/b][/b]
    End If
    End If

    Application.EnableEvents = True
    End Sub
  • To post as a guest, your comment is unpublished.
    Darren · 2 years ago
    I have a question about your password restricted worksheet code. You posted the following code which works....what I am looking for is code that will do this with multiple worksheets and multiple passwords within the same workbook. Is this possible?

    Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    'Update 20140925
    Dim xSheetName As String
    xSheetName = "sheet1"
    If Application.ActiveSheet.Name = xSheetName Then
    Application.EnableEvents = False
    Application.ActiveSheet.Visible = False
    xTitleId = "KutoolsforExcel"
    response = Application.InputBox("Password", xTitleId, "", Type:=2)
    If response = "123456" Then
    Application.Sheets(xSheetName).Visible = True
    Application.Sheets(xSheetName).Select
    End If
    End If
    Application.Sheets(xSheetName).Visible = True
    Application.EnableEvents = True
    End Sub
    • To post as a guest, your comment is unpublished.
      Severin · 1 years ago
      Found a solution yet?

      I am having the same problem
      • To post as a guest, your comment is unpublished.
        Richard · 1 years ago
        Private Sub Workbook_SheetActivate(ByVal Sh As Object)
        Dim aSheetName As String
        Dim bSheetName As String
        Dim cSheetName As String
        aSheetName = "sheet1"
        bSheetName = "sheet2"
        cSheetName = "sheet3"

        If Application.ActiveSheet.Name = aSheetName Then
        Application.EnableEvents = False
        Application.ActiveSheet.Visible = False
        xTitleId = "KutoolsforExcel"
        response = Application.InputBox("Password", xTitleId, "", Type:=2)
        If response = "123" Then
        Application.Sheets(aSheetName).Visible = True
        Application.Sheets(aSheetName).Select
        Else
        Application.Sheets(aSheetName).Visible = False
        End If
        End If
        Application.EnableEvents = True

        If Application.ActiveSheet.Name = bSheetName Then
        Application.EnableEvents = False
        Application.ActiveSheet.Visible = False
        xTitleId = "KutoolsforExcel"
        response = Application.InputBox("Password", xTitleId, "", Type:=2)
        If response = "456" Then
        Application.Sheets(bSheetName).Visible = True
        Application.Sheets(bSheetName).Select
        Else
        Application.Sheets(bSheetName).Visible = False
        End If
        End If
        Application.EnableEvents = True

        If Application.ActiveSheet.Name = cSheetName Then
        Application.EnableEvents = False
        Application.ActiveSheet.Visible = False
        xTitleId = "KutoolsforExcel"
        response = Application.InputBox("Password", xTitleId, "", Type:=2)
        If response = "789" Then
        Application.Sheets(cSheetName).Visible = True
        Application.Sheets(cSheetName).Select
        Else
        Application.Sheets(cSheetName).Visible = False
        End If
        End If
        Application.EnableEvents = True

        End Sub
        • To post as a guest, your comment is unpublished.
          Tomas · 1 years ago
          Thanks for the code, just have one question. When you open the sheet you are asked for question, then you enter it and the sheet is visible, but when you jump to next sheet and try to re-open previous sheet, you are asked for the same password again everytime. My question is can you bypass that and make excel ask for password once?
      • To post as a guest, your comment is unpublished.
        Rexamillian · 1 years ago
        Private Sub Workbook_SheetActivate(ByVal Sh As Object)
        Dim xSheetName As String
        aSheetName = "sheet1"
        bSheetName = "sheet2"
        cSheetName = "sheet3"

        If Application.ActiveSheet.Name = aSheetName Then
        Application.EnableEvents = False
        Application.ActiveSheet.Visible = False
        xTitleId = "KutoolsforExcel"
        response = Application.InputBox("Password", xTitleId, "", Type:=2)
        If response = "1234" Then
        Application.Sheets(aSheetName).Visible = True
        Application.Sheets(aSheetName).Select
        Else
        Application.Sheets(aSheetName).Visible = False
        End If
        End If
        Application.EnableEvents = True

        If Application.ActiveSheet.Name = bSheetName Then
        Application.EnableEvents = False
        Application.ActiveSheet.Visible = False
        xTitleId = "KutoolsforExcel"
        response = Application.InputBox("Password", xTitleId, "", Type:=2)
        If response = "2345" Then
        Application.Sheets(bSheetName).Visible = True
        Application.Sheets(bSheetName).Select
        Else
        Application.Sheets(bSheetName).Visible = False
        End If
        End If
        Application.EnableEvents = True

        If Application.ActiveSheet.Name = cSheetName Then
        Application.EnableEvents = False
        Application.ActiveSheet.Visible = False
        xTitleId = "KutoolsforExcel"
        response = Application.InputBox("Password", xTitleId, "", Type:=2)
        If response = "3456" Then
        Application.Sheets(cSheetName).Visible = True
        Application.Sheets(cSheetName).Select
        Else
        Application.Sheets(cSheetName).Visible = False
        End If
        End If
        Application.EnableEvents = True

        End Sub