lunes, 28 de noviembre de 2011

Desproteger una Hoja en Excel



Desproteger hojas de Excel Facilmente
es muy util para cualquiera que trabaje con Excel 2003. Me tope con un gran problema, necesitaba sacar una imagen de un libro que estaba protegido y no pude desbloquearlo con ningun programa. Entonces encontre esta macro, espero que les sirva.
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

No hay comentarios:

StreamFab 6.1.7.6 descarga desde Amazon Prime, Netflix, Disney+, Hulu y otros más de 1000 sitios

StreamFab 6.1.7.6 Descargar StreamFab 6.1.7.6 herramienta líder internacional de descarga de transmisión dedicada a desarrollar y explorar u...