Tip para desproteger o quitar contraseña de una hoja de calculo de Excel

Tip para descubrir o eliminar la contraseña de una hoja de cálculo

El tip consiste en una macro que al ejecutarse descubre la contraseña y desprotege la hoja respectiva.

Hay que crear una macro con el siguiente código:

Sub Descubrir_contraseña()

Dim a As Integer, b As Integer, c As Integer
Dim d As Integer, e As Integer, f As Integer
Dim a1 As Integer, a2 As Integer, a3 As Integer
Dim a4 As Integer, a5 As Integer, a6 As Integer



On Error Resume Next

For a = 65 To 66: For b = 65 To 66: For c = 65 To 66
For d = 65 To 66: For e = 65 To 66: For a1 = 65 To 66
For a2 = 65 To 66: For a3 = 65 To 66: For a4 = 65 To 66
For a5 = 65 To 66: For a6 = 65 To 66: For f = 32 To 126
Contraseña = Chr(a) & Chr(b) & Chr(c) & Chr(d) & Chr(e) & Chr(a1) _
& Chr(a2) & Chr(a3) & Chr(a4) & Chr(a5) & Chr(a6) & Chr(f)

ActiveSheet.Unprotect Contraseña

If ActiveSheet.ProtectContents = False Then
MsgBox "¡Enorabuena!" & vbCr & "La contraseña es:" & vbCr & Contraseña
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub

Como crear macro: http://aquilesvaesa.blogspot.com/2015/05/crear-un-modulo-o-macro-en-excel.html

Una vez creada la macro, se posiciona en la hoja que quiere desproteger y ejecuta la macro, la cual tardará algún tiempo en ejecutarse (no se preocupa si su archivo parece bloquearse) para luego generar una alerta con una contraseña alternativa pero equivalente, pero en realidad la contraseña ya no importa puesto que la hoja ha sido desprotegida y se puede proteger de nuevo con otra contraseña.
En las pruebas que hicimos en Excel 2003 y 2007, basta con ejecutar la macro para desproteger la hoja.

Si cada hoja del libro tiene una contraseña diferente, en cada una de esas hojas hay que ejecutar la macro, puesto que esta sólo descubre la contraseña de la hoja activa.

Tenga en cuenta que esta macro sirve para desproteger las hojas como el libro según nuestras pruebas.

Nota. Tenga en cuenta que si el archivo que intenta desproteger es de un tercero que lo ha distribuido protegido, desprotegerlo podría no ser correcto o ético.