Nombre de usuario y contraseña, en excel vb

Para ElsaMatilde: Hola buenos días, te molesto pidiéndole el favor y me ayudas, tengo este código que cuando inicio mi pequeña aplicación me carga primeramente un userform donde tengo dos botones y dos cuadros de texto con los nombres de nombre de usuario y contraseña, en la hoja7, columna A2 tengo como nombre de usuario dolka y en b2 tengo como contraseña 1234, hasta ahora me carga perfectamente pero tengo un pequeño problema que al ingresar cualquier dato me abre el libro, lo que necesito es que no me permita continuar si los datos no son correctos, osea lo que tengo en A2 y B2 de la hoja7. Aquí le dejo el código, muchas gracias.

Private Sub CommandButton1_Click()
If UserForm13.TextBox1.Value = Worksheets("Hoja7").Range("a2").Value And UserForm13.TextBox2.Value = Worksheets("Hoja7").Range("b2").Value Then
'Sheets("hoja7").Select
Unload Me
Else
Unload Me
ThisWorkbook.Close
End If
End Sub

Private Sub CommandButton2_Click()
Unload Me
ThisWorkbook.Close
End Sub