Solución Ejercicio Final
Hola chicos, lo prometido es deuda. Aquí va la solución del ejercicio final. Comentar varias cosas que hacían que no funcionase:
- Al ser la casilla de password un texto, si el password es totalmente numérico no lo detecta bien, hay que aplicarle en la celda B2 la formula TEXTO(VALOR;FORMATO)
- En la “descarga” del formulario (que desaparezca) se descargaba toda la hoja, he cambiado el comando por “Hide”
Os adjunto el código nuevo:
Private Sub BtnOk_Click()
If (MiFormulario.TxtUser.Value = ThisWorkbook.Sheets(“USUARIO”).Range(“b1”).Value) And (MiFormulario.TxtPass.Value = ThisWorkbook.Sheets(“USUARIO”).Range(“b2”).Value) Then
ThisWorkbook.Sheets(“CUENTAS”).Select
MiFormulario.Hide
Else
Unload Me
ThisWorkbook.Close
End If
End Sub
Private Sub BtnNoOk_Click()
Unload Me
ThisWorkbook.Close
End Sub
Sub Auto_Open()
ThisWorkbook.Sheets(“hoja3”).Select
MiFormulario.Show
End Sub
Solución (usuario: antonio, password: 1234)