VBA (excel) cómo escribir una interfaz para ingresar la contraseña de la cuenta e ingresar a la tabla de Excel, solicitud de código
ThisWorkbook Pegue el siguiente código en la ventana de código
Private Sub Workbook_Open()
Dim Yfm As String
Dim Mima As String
Yfm = "123456"
Mima = "456123"
t = InputBox("Ingrese un nombre de usuario", "")
If t <> Yfm Entonces
MsgBox "¡Nombre de usuario incorrecto!"
Salir de Sub
End If
t1 = InputBox("Ingrese su contraseña " )
Si t1 <> Mima Entonces
MsgBox "¡Su contraseña es incorrecta!"
Salir de Sub
Fin si p >
Hoja1.