martes, 30 de septiembre de 2014

Autenticación de nombre de usuario con VBA

Ahora si vamos a utilizar los códigos que ya aprendimos sobre obtener información de la computadora para implementar un sistema de identificación mediante la aplicación de la propiedad Environ(“USERNAME”)

La idea es que al momento de abrirse el archivo Excel, podamos comparar el nombre de usuario de la computadora que intenta abrir el archivo con un usuario que tengamos definido como el único que puede abrir el archivo; esto es muy útil por ejemplo si deseamos que un archivo que se encuentra en una red por ejemplo empresarial, solo pueda ser abierto por mi usuario y el de nadie mas.

Lo primero que vamos a hacer es ingresar al Editor de Visual Basic y para ello desde la primera hoja utilizaremos la combinación de teclas Alt + F11:

Nos ubicamos en la ventana del Explorador de Proyectos que tenemos en el panel izquierdo de la ventana del Editor de Visual Basic y damos doble clic sobre el ObjetoThisWorkbook
Private Sub Workbook_Open()
On Error Resume Next
Usuario = Environ("USERNAME")
    If Usuario <> "MiUsuario" Then
        MsgBox "No estas autorizado para abrir este Libro"
        ActiveWorkbook.Close
        Exit Sub
    End If
End Sub

Espero que les sirva esta publicación.

Saludos

Ing. Enrique Neciosup Morales

Tomado desde el siguiente enlace