Controle el acceso a sus proyectos de Excel

Esta plantilla ayuda a proteger sus archivos de personas no autorizado para verlo o modificarlo.

basado en los usuarios de Windows y el evento Username

Copie el siguiente codigo en: ThisWorkbook

Private Sub Workbook_Open()
If Application.UserName = “Usuario PC1” Then
MsgBox “BIENVENIDO…!”, vbInformation, “Aviso!”
Sheets(“principal”).Select
Else
MsgBox “No Autorizado”, vbCritical, “Aviso!”
Application.DisplayAlerts = False
Application.Workbooks.Close
End If
End Sub

Deja un comentario

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