Desbloquear file excel

[Cerrado]
Denunciar
-
 brayanvb -
Hola,recupere mis archivos de excel despues q le cayo virus a mi maquina. Estos tenian contraseña pero se me ha perdido xq son archivos de hace mucho tiempo. Existe algun programa q me permita recordar la clave para ingreso. Please estoy desesperada. Gracias

5 respuestas

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
20
Gracias

Unas palabras de agradecimiento nunca están de más. Deja tu comentario

CCM 11611 usuarios nos han dicho gracias este mes

con un poco mas de memoria jeje
como ago para recordar mi clave en facebook? pliss ayuda

es un excelte programa quisiera descargar gratis en español gracias amigos les agradesco infinitamente
jajaja vuenrespuesta bombo