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

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

Hoja1.