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
No hay comentarios.:
Publicar un comentario