Validar Usuario y contraseña con macros

[ProgrammingJunior]

Hola, tengo un proyecto donde se abre un formulario de login con un usuario y contraseña, pero me percato de que cuando la contraseña tiene solo números indica que "La contraseña es invalida" pero cuando cambio la contraseña a con letras si permite continuar, mi pregunta será ¿Cómo valido que el usuario ingrese mínimo una letra en la contraseña? o ¿cómo valido que me tome una contraseña de  sólo números?

[Israel Cassales]

Podrías validar que la contraseña contenga una letra mínimo,  usa una expresión regular. Por ejemplo, puedes usar la función Like para verificar si contiene al menos una letra:

Function ContieneLetra(contrasena As String) As Boolean
    ContieneLetra = contrasena Like "*[a-zA-Z]*"
End Function

Ahora si quieres permitir que contengan solo números, puedes modificar el código de validación para que acepte las que cumplan con tus criterios.

Por ejemplo:

Function SoloNumeros(contrasena As String) As Boolean
    SoloNumeros = contrasena Like "*[0-9]*"
End Function

Saludines

[Antoni]

Private Sub CommandButton1_Click()
Dim Usuario As Range
'--
Set Usuario = Hoja1.Columns("C").Find(TextBox1, , , xlWhole)
If TextBox1 = "" Or TextBox2 = "" Then
   MsgBox "Introduzca usuario/contraseña", vbCritical
   Exit Sub
End If
'--
If Usuario Is Nothing Then
   MsgBox "El usuario no existe", vbCritical
   Exit Sub
End If
'--
If TextBox2 <> CStr(Hoja1.Range("D" & Usuario.Row)) Then '<-- Esta es la clave
   MsgBox "La contraseña es errónea", vbCritical
   Exit Sub
End If
'--
MsgBox "Usuario y contraseña correctos", vbInformation
End Sub