Desproteger hoja de calculo excel

¿Te has olvidado la contraseña de tu hoja de calculo?
 
¿Cómo descubrir la contraseña que protege una hoja de calculo?.
Truco valido para desvelarnos la contraseña de una hoja de calculoprotegida (no de un libro). Válido -en principio-, para todas las versiones de Excel. Extraido de la revista Computer Hoy.
Pasos a seguir:
1.- Crea un fichero nuevo de Excel (ej: Libro1.xls).
2.-Pulsa Alt y F11, para entrar en el proyecto VBA (Visual Basic para Aplicaciones).
3.- En el menu de opciones, selecciona "Insertar". Selecciona a continuación "Modulo".
4.- En la parte izquierda,donde se observa el Proyecto, se habrá creado una carpeta llamada "Modulos", y dentro de ella, figurara "Modulo1".
5.- Nos situaremos en la ventana de la derecha al cliquear sobre de ese"Modulo1", y copiaremos este código:
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 AsInteger
-------------------------------------------------
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...