Ofimática - desproteger hoja

Hola a todos; mi pequeño problema es que intento desproteger una hoja y no lo consigo.
he probado con un codigo para VBA (Breakit) y con un programa llamado Accent Excel Password Recovery, pero por mas que lo intento Excel no me responde y tengo que cerrarlo, creo que pudiera ser la version que tengo del excel es la del 2002 (XP).

Agradeceria si alguien sabe de este tema, tambien podria mandarle el libro por si me lo supiera desproteger.

Gracias de antemano y Salu2

Checa con este c{odigo, edita en visual basic, (alt + f11)

Sub breakit()

Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
On Error Resume Next
For i = 65 To 66
For j = 65 To 66
For k = 65 To 66
For l = 65 To 66
For m = 65 To 66
For i1 = 65 To 66
For i2 = 65 To 66
For i3 = 65 To 66
For i4 = 65 To 66
For i5 = 65 To 66
For i6 = 65 To 66
For n = 32 To 126
ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If ActiveSheet.ProtectContents = False Then
MsgBox "One usable password is " & Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) _
& Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Exit Sub
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next

End Sub

eres un genio

Sois unas máquinas. Aunque me da miedo pensar lo que podeis ser capaces de hacer. A mi en este caso me ha venido muy bien. Gracias.

Buenas , yo he podido desproteger hojas mediante el código de Breakit que sigue a continuación, pero lo que no puedo es mostrar una hoja que tengo oculta.

Incluir esta subrutina en Visual Basic (ALT F11), seleccionar la página que queremos desproteger y ejecutar macro breakit (ALT F8), saltará una ventana avisando de la nueva contraseña aunque la página estárá desprotegida.

Sub breakit()

Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
On Error Resume Next
For i = 65 To 66
For j = 65 To 66
For k = 65 To 66
For l = 65 To 66
For m = 65 To 66
For i1 = 65 To 66
For i2 = 65 To 66
For i3 = 65 To 66
For i4 = 65 To 66
For i5 = 65 To 66
For i6 = 65 To 66
For n = 32 To 126
ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If ActiveSheet.ProtectContents = False Then
MsgBox "One usable password is " & Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) _
& Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Exit Sub
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next

End Sub

ENVIAMELO YO TE DESBLOQUEO.

quiero como hago para desproteger. En Url puse donde saque las planillas

YFD

Se puede desproteger la pagina www.parquedevaldebebas.com y entrar en la zona de susarios. Gracias

resulta que tengo un libro que al ejecutar el editor de vb (alt + f11) pide contraseña entonces igual no deja hacer nada, como desprotejo entonces?

Tengo un fixture del mundial 2006 que esta mal y tiene las hojas bloqueadas y no puedo modificar el error, alguien me da una mano, tengo el Office 2003.

Slds
Roebrto

la clave para desproteger el archivo de excel del mundial 2006 para excel es ZSKREPXVEHMZCGU todo en mayusculas y tienen que desproteger hoja por hoja

INTENTA SELECCIONAR LA HOJA COMPLETA COPIAR Y EN UN LIBRO NUEVO LA PEGAS Y YA SE QUITA EL BLOQUEO