Formulario en VBA para proteger data

Descripción:

Al trabajar con data sensible muchas veces el usuario de esta desea protegerla de cualquier otro usuario que pueda acceder a la misma y ejecutar cambios intencionados o no. Para ello podemos crear un formulario en VBA que proteja la data al momento de abrir el documento excel. En este caso el formulario creado requerirá el ingreso del número de usuario o DNI y luego una contraseña preestablecida. Asimismo, tanto el número de usuario como la contraseña deberán contar con un número específico de caracteres para poder acceder a la data, ello se le comunica al usuario mediante mensajes en el formulario. De introducir correctamente número de usuario o DNI y la contraseña, le aparecerá un mensaje de bienvenida y seguidamente el número de usuario ingresado aparecerá en la celda A1 y con estilo de fuente negrita. En caso contrario, no podrá acceder a la data teniendo en el formulario el botón "Salir" que cierra automáticamente el documento excel.

Ejemplo:

Contraseña "1234"

Ver archivo: Formulario en VBA para proteger data

Para ejecutar las condiciones ejecutamos el código en "Aceptar":

Private Sub CommandButton1_Click()
If Len(TextBox1) <> 8 Then
MsgBox "Usuario incorrecto: Ingrese 8 dígitos"
End If
If TextBox2 <> "1234" Then
MsgBox "Contraseña incorrecta: Ingrese 4 dígitos"
End If
If Len(TextBox1) = 8 And TextBox2 = "1234" Then
UserForm1.Hide
MsgBox "Bienvenido:" & " " & TextBox1.Text
Cells(1, 1) = "Usuario:" & " " & TextBox1.Text
Selection.Font.FontStyle = "bold"
End If
End Sub

Para el botón "Salir" que cierra el documento excel empleamos el código:

Private Sub CommandButton2_Click()
Application.Quit
End Sub

 

Elaborado por: Daniel Salas