Monday 27 December 2010

Tutorial ¿como desbloquear paginas de excel?

Title:
Tutorial ¿como desbloquear paginas de excel?


Video:


Description:Este es el codigo: 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.UnprotectChr(i) and Chr(j) and Chr(k) and _ Chr(l) and Chr(m) and Chr(i1) and Chr(i2) and Chr(i3) and _ Chr(i4) and Chr(i5) and Chr(i6) and Chr(n) If ActiveSheet.ProtectContents = False Then MsgBox "One usable password is " and Chr(i) and Chr(j) and _ Chr(k) and Chr(l) and Chr(m) and Chr(i1) and Chr(i2) and Chr(i3) _ and Chr(i4) and Chr(i5) and Chr(i6) and Chr(n) Exit Sub End If Next Next Next Next Next Next Next Next Next Next Next Next End Sub Importante: Guarda y luego ejecuta. El codigo no es el escrito por el usuario es solamente el respaldo de archivo

Published:
27/Dec/2010

No comments:

Post a Comment