Usuario y Contraseña

Hola Buen Día
Lo que necesito es en un archivo de excel,
asignar un usuario y contraseña a diferentes personas,
el archivo se encontraría en un servidor y peronas desde diferentes maquinas lo tienen que abrir, pero para abrirlo que le pida nombre de usuario y contraseña para poder entrar al archivo
espero que puedan ayudarme
gracias por su tiempo

1 respuesta

1
Respuesta de
Prueba con este código... puedes añadir nombres y contraseñas...
Private Sub Workbook_Open()
Dim nombre As String
Dim paso2 As Boolean
nombre = UCase(InputBox("Nombre de Usuario"))
paso2 = False
Select Case nombre
Case "JAVIER"
If UCase(InputBox("Introduce tu clave de acceso")) = "CATAMARAN" Then paso2 = True
Case "JUAN"
If UCase(InputBox("Introduce tu clave de acceso")) = "125ERT" Then paso2 = True
End Select
If paso2 = False Then ThisWorkbook.Close savechanges:=False
End Sub
Añade un comentario a esta respuesta
Añade tu respuesta
Haz clic para o
Escribe tu mensaje