Cómo usar Excel para escribir todas las combinaciones de números de 3 dígitos

Es muy simple, ingresa 0 en la celda A1, ingresa =A1+1 en A2, presiona Enter y luego selecciona A2, presiona "+" en la esquina inferior derecha de A2 y arrastra hacia abajo hasta la fila 1000. Hay todas las combinaciones de 3 dígitos.

El siguiente es el código que escribí para resolver la contraseña numérica de Excel, solo como referencia.

Sub crack()

Atenuar i mientras

Atenuar nombre de archivo como cadena

Application.ScreenUpdating = False

i = 1

FileName = Application.GetOpenFilename("Archivo Excel (*.xls & *.xlsx),*.xls;*.xlsx", , "VBA crack")

Nombre de archivo = Right(Nombre de archivo, Len(Nombre de archivo) - InStrRev(Nombre de archivo, "\"))

línea2:

En caso de error, Ir a línea1

Hacer mientras es verdadero

Workbooks.Abrir nombre de archivo, , , , i

Workbooks(Nombre de archivo).Cerrar 0

MsgBox "La contraseña es " & i

Salir del Sub

Bucle

línea1:

i = i + 1

Reanudar línea2

Application.ScreenUpdating = Verdadero

Fin Sub