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
Me marca error (lo pone en rojo) lo sig:
MsgBox «One usable password is » & Chr(i) & Chr(j) &
Que hago?
me marca con error en tojo lo sig:
MsgBox «One usable password is » & Chr(i) & Chr(j) &
Que hago?
para mi todo es falso, uno necesita desbloquear una hoja y no deja abrir ninguna macro porque sencillamente uno necesita pararse en lahoja bloqueada y ella nisiquiera abre lo único que sale es un cuadro que dice ingrese la clave y el cuadro no deja nisiquiera oprimir f8
que eres lo maximo gracias me sirvio de mucho por gente komo tu progresa el mundo
Excelente!!! Efectivamente hay que re-escribir las dos comillas que aparecen en el código que nos pusiste. Mil gracias… pues el excel de la Copa América 2011 que me enviaron tenía un error… ¡y lo pude corregir! ¡Super!