Desbloquear archivo excel
el 24/11/2008 a las 18:40hs | .

Presiona ALT + F8 para que te da la pantallita de crear una macro y escribe un nombre determinado y presiona la tecla CREAR
esto te llevara al editor de VB y sutituye lo tecleado por lo siguiente
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
Guarda y luego ejecuta dicha macro…. espera unos cuantos minutos y te mostrara una advertencia con la clave Interna de Excel y te desbloqueara la hoja de la cual deseas ver las formulas.
NOTA: la clave que te muestra no es la que tecleo el usuario sino la de respaldo que ocupa internamente el codigo de Excel en dicha hoja.
OTRA NOTA: puede tardar mucho.. en algunas pcs puede durar hasta 10 minutos y derrepente te aparece una ventanita con la clave!



por favor neceisto desbloquer aun archivo de excel realice los pasos que me indica pero no sale nada.
gracias
Hola, cuando ejecuto el macro me dice que hay un error de sintaxis en :
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)
Saludos
Hola man unicamente cambia esa commillas raras por las comillas normales (“”) y listo ya te anda… pero por desgracia solo funciona si lo que esta bloqueado es la Hoja no el XLs ¬¬ sorry!!
funciona de vicio!!! graciass