Contasenas
'*********Password Control*****************
Dim strInput As String, strMsg As String
strMsg = "Enter Your PASSWORD"
strInput = InputBox(Prompt:=strMsg, _
Title:="User Info", XPos:=2000, YPos:=2000)
If strInput = "tration" Then
'Open Menu
Else
MsgBox "Wrong Password **Invalid** >>>>Unauthorized User<<<<"
Cancel = True ' Cancel Open event.
End If
'******************************************
Quiero que al entrar la contraseña no se vea... Gracias..
Dim strInput As String, strMsg As String
strMsg = "Enter Your PASSWORD"
strInput = InputBox(Prompt:=strMsg, _
Title:="User Info", XPos:=2000, YPos:=2000)
If strInput = "tration" Then
'Open Menu
Else
MsgBox "Wrong Password **Invalid** >>>>Unauthorized User<<<<"
Cancel = True ' Cancel Open event.
End If
'******************************************
Quiero que al entrar la contraseña no se vea... Gracias..
1 respuesta
Respuesta
1
Esto es al entrar o para cada usuario
En ves de tanto rollo por que no haces una base de usuarios y así seleccionan el nombre y pone su contraseña con mascara de asterisco*****
Pásame tu correo para mandarte un formulario que hice de usuarios llevo 2 años usándolo y no me ha fallado
De echo en el formulario activas usuarios y que permisos le vas a dar ejemplo
Seleccionas entadas y almacen nomas genera entradas y los reporte lo hacen commpras
saludos
En ves de tanto rollo por que no haces una base de usuarios y así seleccionan el nombre y pone su contraseña con mascara de asterisco*****
Pásame tu correo para mandarte un formulario que hice de usuarios llevo 2 años usándolo y no me ha fallado
De echo en el formulario activas usuarios y que permisos le vas a dar ejemplo
Seleccionas entadas y almacen nomas genera entradas y los reporte lo hacen commpras
saludos