Contraseña de apertura con intentos en Excel

Compatibilidad: Truco compatible con Excel 365Truco compatible con Excel 2016Truco compatible con Excel 2013Truco compatible con Excel 2010Truco compatible con Excel 2007

En Excel podemos abrir un libro mediante contraseña, pero nos puede interesar restringir el número de intentos para insertar la contraseña a tres, contraseña con intentos en Excel.

El nivel de seguridad es muy básico y los datos no van encriptados, por lo que se considera experimental.
Ventana inicial para confirmar contraseña con tres intentos.
  • EDITOR VISUAL BASIC. Abrimos el editor de Visual Basic.

  1. Abrir el libro deseado / Guardar con la extensión *.xlsm. Libro habilitado para macros.

  2. Pulsar la tecla Alt y mantener pulsada / Pulsar la tecla F11. Mostrará el editor de Visual Basic.

  • INSERTAR FORMULARIO. Creamos un formulario para validar la contraseña.

  1. Ir a: Barra de menús / Insertar / UserForm. Insertará un formulario vacío.

    Contraseña de apertura con intentos en Excel: Formulario (UserForm) insertado

    De manera predeterminada el formulario obtendrá el nombre de UserForm1 (necesario para identificarlo en el código de la macro). Si deseamos cambiarlo, Ir a: ventana de propiedades / Propiedad: Caption.

  • CUADRO CONTRASEÑA. Insertamos un cuadro de texto para la contraseña.

  1. Ir a Panel: Cuadro de Herramientas / Clic sobre cuadro de texto.Comando de cuadro de textoSi no está visible, Ir a: Barra de menú / Ver / Cuadro de herramientas.

    Contraseña de apertura con intentos en Excel: Cuadro de herramientas del formulario.
  2. Clic sobre la vista del UserForm. Insertará un cuadro de texto para insertar la contraseña.

    Contraseña de apertura con intentos en Excel: UserForm con control de cuadro de texto.

    De manera predeterminada el control obtendrá el nombre de TextBox1 (necesario para identificarlo en el código de la macro). Si deseamos cambiarlo, Ir a: ventana de propiedades / Propiedad: Name.

  • BOTÓN CONTRASEÑA. Insertamos un botón para validar la contraseña escrita.

  1. Ir a Panel: Cuadro de Herramientas / Clic sobre botón de comando.ent399gSi no está visible, Ir a: Barra de menú / Ver / Cuadro de herramientas.

  2. Clic sobre la vista del UserForm. Insertará el botón de validación.

    UserForm con control de botón para validar contraseña.

    De manera predeterminada el control obtendrá el nombre de CommandButton1 (necesario para identificarlo en el código de la macro). Si deseamos cambiarlo, Ir a: ventana de propiedades / Propiedad: Name.

  3. TEXTO BOTÓN. Ir a: Ventana propiedades / Propiedad: Caption / Escribir: Contraseña. O el texto deseado.

  • BOTÓN CERRAR. Insertamos un botón para salir sin validar la contraseña.

  1. Ir a Panel: Cuadro de Herramientas / Clic sobre botón de comando. ent399gSi no está visible, Ir a: Barra de menú / Ver / Cuadro de herramientas.

  2. Clic sobre la vista del UserForm. Insertará el botón de salir sin la validación.

    Contraseña con intentos: UserForm con control de botón para cerrar el libro sin validar.

    De manera predeterminada el control obtendrá el nombre de CommandButton2 (necesario para identificarlo en el código de la macro). Si deseamos cambiarlo, Ir a: ventana de propiedades / Propiedad: Name.

  3. TEXTO BOTÓN. Ir a: Ventana propiedades / Propiedad: Caption / Escribir: Cerrar. O el texto deseado.

  • VISTA DE CÓDIGO DEL USERFORM. Insertamos el código para el formulario, formado por 5 macros.

  1. Ir a: Barra de menús / Ver / Código; O también, Atajo de teclado F7.

  2. Escribir el código de la macro 1:

    Public Analiza As Byte

  3. Escribir el código de la macro 2, para validar la contraseña:

    Private Sub CommandButton2_Click()

    Unload Me

    ActiveWorkbook.Close SaveChanges:=False

    End Sub

  4. Escribir el código de la macro 3:

    Private Sub CommandButton1_Click()

    If Me.txtPass.Value = 1234 Then

    Unload Me

    Else

    Analiza = Analiza + 1

    MsgBox "¡ INTENTALO DE NUEVO !" & vbNewLine & "Dispones de 3 intentos" & vbNewLine & vbNewLine & "Intento Nº: " & Analiza, vbInformation, "Aviso: Contraseña no válida"

    Me.txtPass.SetFocus

    Me.txtPass.Value = ""

    End If

    If Analiza = 3 Then

    Unload Me

    ActiveWorkbook.Close SaveChanges:=False

    Else

    End If

    End Sub

    Me.txtPass.Value = 1234. Incluye la contraseña que deberemos insertar.

    Intentos = 3. El número de veces que solicitará la contraseña incorrecta.

  5. Escribir el código de la macro 4:

    Private Sub UserForm_Initialize()

    With Me

    .txtPass.PasswordChar = "*"

    .txtPass.MaxLength = 6

    End With

    End Sub

    .txtPass.MaxLength = 6. Número de caracteres máximos para la contraseña.

  6. Escribir el código de la macro 5:

    Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

    If CloseMode = vbFormControlMenu Then

    Cancel = True

    MsgBox "Insertar la contraseña del libro.", vbInformation, "Aviso: CONTRASEÑA"

    End If

    End Sub

  • MACRO LIBRO. Para cargar el formulario al abrir el libro.

  1. Ir a: Explorador de Proyectos / VBAProject / Doble Clic sobre ThisWorkbook. Si el panel no está visible Ir a: Barra de menú / Ver / Explorador de proyectos. Mostrará la ventana del módulo donde escribimos la macro.

    Contraseña con intentos en Excel: Panel explorador de proyecto con ThisWorkbook seleccionado.
  2. Escribir el código de la macro:

    Private Sub Workbook_Open()

    UserForm1.Show

    End Sub

  • OTRAS

  1. Insertar una hoja nueva de entrada / Insertar un texto de aviso. Al abrir el libro antes de insertar la contraseña, mostrará la información de la página activa. Mostrando la información que contiene (la nueva hoja ocultará la información).

  2. El nivel de seguridad de las macros requiere que esté en "Habilitar todas las macros".

  3. Guardar el libro desde la nueva hoja de Entrada.

  4. Cerrar el libro habilitado para macros.

  5. Abrir de nuevo el libro / Verificar como muestra el mensaje de contraseña con tres intentos.

Contraseña de apertura con intentos en Excel: Hoja de Excel con validación de contraseña en la apertura.

Disponiendo así de una macro que nos permita aplicar una "Contraseña de apertura con intentos en Excel" para la apertura del libro.

Nivel de dificultad: Experto VBA-Macros Excel Experto VBA – Macros

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *