Cómo desbloquear hojas protegidas de Excel sin tener la contraseña

El método que les traigo aquí funciona para desproteger hojas de cualquier archivo de Excel que tenga formato interno en XML, es decir, desde el Excel 2010 para adelante. Este método sirve incluso si no se puede abrir el libro por completo. No funciona si el archivo está corrompido.

Condición previa
Winzip, WinRAR o 7-zip o cualquier otro software que pueda descomprimir los archivos zip.

Hay por ahí en la red el código que copio abajo para desproteger hojas de libros de Excel, pero no funciona en las versiones actuales.

Sub PasswordBreaker()
' Desproteje hoja. Funciona en Excel 2003 o inferior
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 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 "One usable password is " & Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
ActiveWorkbook.Sheets(1).Select
Range("a1").FormulaR1C1 = 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

[WilfredoSilva]

Amigo Ricardo, mejor explicado no puede estar, te felicito porque ya había intentado con el fulano código y nunca me funciono, seguí toda tu explicación el cual aplique y aleluya funciono, muchas gracias por este aporte.

[alvaropalacios]

Muy útil y bien explicado. He seguido los pasos y he podido modificar y guardar el documento sin problema. Muchas gracias, me has solventado un problema del trabajo.

[luisafernandaariza]

Hola Ricardo, saludos desde Colombia. Tu explicación ha sido muy buena y detallada. Gracias, me sirvió un montón para poder adelantar un trabajo de mi oficina.

[logan]

Excelente!! Desbloquee un archivo de hace algunos años, desde que llegue a mi trabajo en el 2012 ya existía, ahorita tengo el Excel 365 y ahora ya lo puedo modificar!! Muchas gracias!

[carlosrodasfredericksen]

Hola Ricardo, mira no se si ayude, trate de desprotejer un excel con extensión .xls, y no lo pude hacer, después de tratar un rato cambie la extensión a .xlsx y logre hacer todos tus pasos del video, y resulto a la perfección. gracias P.D.: es por si alguien tiene un archivo mas viejo.

[jorgeenriquelopezgonzalez]

muchas gracias, muy eficiente el metodo

[antoniomalonso]

Gracias Ricardo Quiroz por tu apoyo. EL método, explicación y resultados son de primeraa calidad. Gracias por haberme apoyado con desbloquear el archivo en Excel compartido. Recomendado 100 por ciento usuarios y visitantes.

[andresmerce]

Muchas gracias Ricardo por lo bien explicado que está. Ha funcionado a la perfección con un libro de 8 hojas.

[ulisesreyes]

Muchas gracias, estuve intentando usar una hoja de excel por mucho tiempo hasta que encontré tu vídeo, excelente método

[gabriellira]

Esta siguiendo los pasos que indica Ricardo Quiroz si funciona, saludos desde México

[stewcamargo]

A marzo de 2021, funciono el procedimiento, muchas gracias crack. Grandee!!

[paolaandreadelgadocasaas]

Un "mil gracias" más, no está de sobra. ¡Qué lindo que compartas tu conocimiento y logres ayudar a tantas personas! <3

[geovannivaladez]

Si no les funciona puede ser por alguno de estos motivos, que me pasaron pero segui intentando y lo logre, si el archivo es xls, guarda una copia actualizada a xlsx, si el archivo originario contiene macros no funcionará, tendràs que guardar una copia deshabilitando los macros y siguiendo las instrucciones de ricardo lo lograras. Muchas gracias por tu video, me sirvio bastante.

[ronaldoquispe]

muy buena explicación...algo q aportar:
1. (al inicio no mas) si al tratar de descomprimir te da error de no se encontraron archivos creo saber q es por la version del archivo (version 2003).
2. lo q se puede hacer es abrir el archivo y guardarlo en otra version .xlsm (version con macros) u otra (aunque este protegido nos dejara guardarlo como ...)
3. al hacer esto ya se puede seguir con el tutorial.
4. al final para cambiar de .zip a la version anterior solo intentar si funciona con .xls .xlsm

[joseluismamani]

gracias mi estimado buen hombre te dejo mi like!!!!

[CarolinaSalazarReptar]

Ricardo, eres un genio!!, gracias por esta sencilla y concisa explicación. Al fin alguien que comparte algo de utilidad. :)

[jafetgranados]

Eres una chingonería!! En mi caso no pude hacerlo a la primera ya que me decía que estaba corrompido al tratar de abrir el archivo zip. Mi archivo original tenía la extensión .xls, así que lo que hice fue guardar el archivo como (save as) .xlsm desde el menú Archivo (File), lo hice con esta extesión porque mi archivo tiene macros, pero si no, lo hubiera podido guardar con extesión .xlsx.

[adriantrejolopez]

Muchísimas gracias Richar, excelente tutorial estuve buscando varios tutoriales y no me servían, Me fue muy útil, Gracias

[douglasurbina]

Muchas Gracias Ricardo, Muy Útil me funciono al 100% antes pasaba las Hojas bloqueadas a PFD luego de PDF a Excel pero la mayoría de las veces se afectaba el Formato, gran aporte

[garymontero]

Que Excelente videoooo me salvaste de una broo