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)