Excel - desproteger un libro en excel

hola, como hacer para desproteger un libro en excel

eso es posible realizarlo a travez de macro:

se abre paralelamente una hoja excel con el siguiente codigo en un modulo.

Sub jd()
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 "¡JD TE DA TU CONTRASEÑA!" & 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

luego copias este codigo en el documento que necesita encontrar la contraseña, en el modulo de programacion de visual basic.

das ejecutar macro y listo:::el encontrara la combincacion de la contraseña

a mi me funcionpo,

Hola
se detiene la macro al llegar al renglón de CONTRASEÑA= porque dice que no se ha definido la variable
sabes algo al respecto?



SALUDOS

faltó declarar la variable
Dim Contraseña As String
arriba de
On Error Resume Next

Saludos, desde Baires, JuanC