Desproteger hoja calculo




¿Cuantas veces se nos olvida la clave que pusimos aun archivo y pensamos que ya lo perdimos? Bueno aqui los pasos para desbloquear el archivo en excel

Primer paso
Se va a crear una nueva macro y se va a poner 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

Copian y pegan en un modulo de visual del excel y luego dentro del libro a desproteger le dan ALT + F8 y eligen la macro y la ejecutan, esperan unos segundos y listo

Es todo lo que hacemos... espero comentarios




Entradas más populares de este blog

Se integran nuevas personas fisicas al esquema de DyP

Nuevas Formas de pago en factura electronica

Renovar certificado IDSE... ¿marca error active X ?