Como desbloquear un archivo exel.

Aca les dejo como desbloquear un archivo exel =)
(espero que lo usen con fines utiles 8-) )

1er paso:
Presiona ALT + F8 para que te da la pantallita de crear una macro y el nombre deel macro y pone crear

2do paso:
cuando le des CREAR te lleva al editor de Visual Basic,
pone:



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


Guardas y despues ejecutas el macro ( flechita de play en el VB )
espera uno rato y te aparece un cartel con la clave interna de exel y en la opcion desprotejer hoja pones la clave y liisto =)

NOTA: la clave que te muestra no es la que tecleo el usuario sino la de respaldo que ocupa internamente e codigo de Excel en la hoja.

--------------------------------------------------------------------------------

Cuando te diga que el nivel de seguridad configurado es muy alto,
van a "herramientas" => "macros" => seguridad y ponen bajo =)

si tenes office 2007 La configuración de seguridad de macros se puede cambiar en el Centro de confianza (botón de Microsoft Office , botón Opciones de Excel, categoría Centro de confianza, botón Configuración del Centro de confianza, categoría Configuración de macros.
O tambien en la ficha Programador, en el grupo Código, botón Seguridad de macros).
Si trabaja en una empresa, puede que el administrador del sistema haya cambiado la configuración predeterminada e impida que los usuarios modifiquen la configuración.

pero si al momento de querer crear la macro te pide contraseña aun teniendo el nivel de seguridad bajo,creas otro macro en otro archivo excel y agregas el siguiente código:

Dim xlsBook As Workbook
Dim xlsSheet As Worksheet
Set xlsBook = Workbooks.Open("C:\archivo.xls" )
Set xlsSheet = xlsBook.Worksheets("Hoja que queres desbloquear" )

Y sustituye Activesheet por xlsSheet.

mi primeer post =)
Comenten =)