Desbloquear archivos excel

En mi oficina me pidieron que desbloquee un archivo excel para no se que matufias que querian hacer con ese archivo, bueno la cosas es que me pidieron a mi ya que estaba protegido con password y buscando herramientas para crackear la hoja excel encontré una serie de pasos que no necesitas instalar nada que son los siguientes

1. Abre normalmente el archivo Excel que quieres desbloquear o desproteger.
2. Pulsa [Alt] + [F8] y se te abrirá una ventana; en el nombre del macro pones “breakit” o un nombre a tu elección, y pulsa el botón Crear
3. Se te abrirá una nueva ventana, allí sustituyes y borras todo lo que esta escrito y lo reemplazas por el siguiente código:

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 "La contraseña es: " & 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

4. Pulsa el botón Ejecutar desde el menú o desde la barra de herramientas.

Si todo salio bien, veras un mensaje que dice: “La contraseña es: AAAAA…”;no es la que originalmente tenia, pero funciona perfectamente. De ahora en más, podras modificar todas las celdas bloquedas.

Original Post: http://www.trucosaurio.com/idx.php/0/048/article/Desbloquear-y-despoteger-un-archivo-de-Excel.html