Contraseñas de excel

¿Cómo descubrir la contraseña que protege una hoja de cálculo?.
Este truco es válido para descubrir el password de una hoja de cálculo protegida (no de un libro). Supuestamente es válido lasversiones de Excel (Yo solo lo he probado con Excel 2003).
Pasos.
1.- Crea un archivo nuevo de Excel (ejemplo: Libro1.xls).
2.- Pulsa Alt y F11, para entrar en el proyecto VBA (Visual Basic paraAplicaciones).
3.- En el menú de opciones, selecciona “Insertar”. Selecciona a continuación “Módulo”.
4.- En la parte izquierda, donde se observa el Proyecto, se habrá creado una carpeta llamada “Módulos”, ydentro de ella, figurará “Módulo1″. Nos situaremos en la ventana de la derecha al cliquear sobre de ese “Módulo1″, y copiaremos este código:
Sub Descubrir_contraseña()
Dim a As Integer, b AsInteger, 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 To126
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
5.- Acontinuación, una vez hayamos pegado ese código, seleccionaremos en el menú de opciones, “Archivo”, y a continuación “Exportar archivo”. Le pondremos de nombre Descubrir_contraseña.bas o cualquier otro nombrey lo guardamos en cualquier directorio, por ejemplo en “Mis documentos”.
6.- En este paso tenemos que abrir la hoja de cálculo protegida… Para poder saber cual es su password, tenemos que acceder...