Desproteger o eliminar la contraseña de una hoja de Excel_

Desproteger o eliminar la contraseña de una hoja de Excel

ucede mucho que a veces protegemos las hojas de un libro de Excel y luego olvidamos la contraseña (nos ha pasado a nosotros con el librofiscal en Excel). Bien, un lector de Gerencie.com (Dina Galvis) ha compartido en nuestro sistema de comentarios un tip para descubrir o eliminar la contraseña de una hoja de cálculo que nos parece degran utilidad razón por la que decidimos hacer un resumen.
El tip consiste en una macro que al ejecutarse descubre la contraseña y desprotege la hoja respectiva.
En esta dirección puede encontrar lasinstrucciones completas para desproteger la hoja de Excel, no obstante hacemos un resumen con los pasos a seguir.
Hay que crear una macro con el siguiente código:

Sub Descubrir_contraseña()
Dim a AsInteger, 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
Fora = 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: Forf = 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
IfActiveSheet.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

Una vez creadala 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 alertacon una contraseña alternativa pero equivalente, según nos cuenta Dina, pero en realidad la contraseña ya no importa puesto que la hoja ha sido desprotegida y se puede proteger de nuevo con otra...