Descripción:
Do Until Loop permite generar una estructura repetitiva en torno a una condición previamente establecida. El VBA evalúa si dicha condición ha sido cumplida y lo continúa haciendo hasta que se logre. En este ejemplo, la condición establecida es la de ingresar una contraseña cualquiera que se encuentre compuesta por cuatro dígitos o caracteres. Entonces el VBA realiza la ejecución/repetición del mismo bucle una y otra vez hasta que logre cumplirse la condición ingresada inicialmente.
Ejemplo:
En este código, como veremos a continuación, se esta empleando el Do Until acompañado de una condición especial. Esta condición especial es: Len (contraseña)=4, la cual establece que cualquier ingreso que tenga nuestra contraseña esta no deberá tener un menor o mayor número de caracteres que difieran con el establecido inicialmente. De esta manera estamos fijando nuestra contraseña en solo cuatro caracteres. De manera seguida definimos contraseña como un InputBox y a continuación, las etiquetas de sus principales elementos "Contraseña" y "Bienvenido". Finalmente cerramos nuestro Do Until y el Sub Password().
Sub Password()
Do Until Len(contraseña) = 4
contraseña = InputBox("Contraseña", "Bienvenido")
Loop
End Sub
Elaborado por: Daniel Salas