Encontrar Contraseña Hoja Excel

Pasos a seguir:

1.- Crea un fichero nuevo de Excel

2.- Pulsa Alt y F11, para entrar en el proyecto VBA (Visual Basic para Aplicaciones).

3.- En el menú de opciones, selecciona "Insertar". Selecciona a continuación "Módulo".

4.- En la parte izquierda, donde se observa el Proyecto, se habrá creado una carpeta llamada "Módulos", y dentro de ella, figurará "Módulo1".

5.- Nos situaremos en la ventana de la derecha al cliquear sobre de ese "Módulo1", y copiaremos este código:

Sub Desbloquear()

Dim i As Integer, j As Integer, k As Integer

Dim l As Integer, m As Integer, n As Integer

On Error Resume Next

For i = 65 To 66

For j = 65 To 66

For k = 65 To 66

For l = 65 To 66

For m = 65 To 66

For i1 = 65 To 66

For i2 = 65 To 66

For i3 = 65 To 66

For i4 = 65 To 66

For i5 = 65 To 66

For i6 = 65 To 66

For n = 32 To 126

ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _

Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _

Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

If ActiveSheet.ProtectContents = False Then

MsgBox "El password es: " & Chr(i) & Chr(j) & _

Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) _

& Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

Exit Sub

End If

Next

Next

Next

Next

Next

Next

Next

Next

Next

Next

Next

Next

End Sub

6.- A continuación, una vez hayamos pegado ese código, seleccionaremos en el menú de opciones, "Archivo", y a continuación "Exportar archivo". Le pondremos descubrir_contraseña.bas y lo guardamos en el escritorio

7.- Ahora conla hoja de cálculo protegida, que queremos descubrir su password, tendremos que acceder al proyecto (Alt+F11), e importar el módulo (.bas) anterior. Para ello, desde el menú de opciones, seleccionamos "Archivo", y a continuación "Importar archivo". Buscamos la ruta donde habíamos guardado el fichero del punto 6 anterior, y lo seleccionamos. Salimos ahora del proyecyo VBA, para volver a la hoja de cálculo protegida.

8.- Con la hoja de cálculo cuya contraseña deseamos descubrir, en primer plano (activa), seleccionamos desde Excel (no desde VBA, aunque también se puede hacer, pero lo haremos de la forma más gráfica y sencilla posible), en el menú de opciones "Herramientas". A continuación, seleccionamos "Macro" y luego "Macros..." (si queréis ahorraros eso, pulsad Alt+F8). En la lista de macros,

...