Desbloquear archivo excel

[Rober_e]

Estaba buscando desproteger un Libro de Excel, como lo que encontré no me funcionaba porque ponía que la contraseña era incorrecta, pongo aquí esto que sí que me funciona:
Se hace mediante la Macro "DesprotegerLibro" que tenemos que crear a continuación, siguiendo estas instrucciones:

1. Abre normalmente el archivo Excel que quieres desbloquear o desproteger.
2. Pulsa ALT + F8 y se te abrirá una ventana; en el nombre del macro pones “DesprotegerLibro” u otro nombre (sin espacios) a tu elección, y pulsa el botón Crear.
3. Se te abrirá una nueva ventana de VisualBasic, allí sustituyes y borras todo lo que esta escrito y lo reemplazas por el siguiente código:

Sub DesprotegerLibro()
If MsgBox("Realmente desea desproteger el libro actual?", vbCritical + vbYesNo + vbDefaultButton2, "DesprotegerLibro") = vbYes Then
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

ActiveWorkbook.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 ActiveWorkbook.ProtectStructure = False And ActiveWorkbook.ProtectWindows = False Then
'MsgBox "La clave 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)
MsgBox "El libro está ahora desprotegido", vbInformation + vbOKOnly, "DesprotegerLibro"
Exit Sub
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
End If
End Sub

4. Pulsa el botón Ejecutar desde el menú de la barra de herramientas o desde la barra de herramientas.

5. Después de un rato, si todo salio bien, veras un mensaje que dice: "Realmente desea desproteger el libro actual?"; pulsar "Si"; el siguiente mensaje es:
"El libro está ahora desprotegido"; pulsamos en "Aceptar" y listo.
¡ Funciona !