lunes, 4 de marzo de 2013

Como desproteger una Hoja de Excel sin Contraseña

Como Desproteger una Hoja de Excel sin Contraseña
Desproteger hoja protegida con password en segundos.

 

En el caso que usted no pueda editar los datos que hay en una hoja protegida en Excel Si no recuerda la contraseña o si no sabe la contraseña para desproteger la hoja sólo tiene que seguir estos pasos sencillos:  

1. Abra el archivo de Excel que esta protegido con contraseña.

 
 
2. Presione ALT +  F11 para abrir el editor de Visual Basic


En el espacio en blanco encima Introduzca el código de abajo. No cambie el código sólo copiar y pegar:

Sub PasswordBreaker()
    'Breaks worksheet password protection.
    Dim i As Integer, j As Integer, k As Integer
    Dim l As Integer, m As Integer, n As Integer
    Dim i1 As Integer, i2 As Integer, i3 As Integer
    Dim i4 As Integer, i5 As Integer, i6 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

3. Ahora haz clic en el botón Ejecutar o presione F5:
 

Aparecera un Pop-up (Ventana Emergente) con la contraseña para ese libro, tome nota e introduzca cuando el libro se la pida.


14 comentarios:

  1. graciassssssssssssss me servió mucho , saludos desde bogota mucgas gracias de nuevo

    ResponderEliminar
  2. GUAU!! Excelente recurso. Muchas GRACIAS

    ResponderEliminar
  3. Wowwwwwwwww.......... Gracias, me han salvado.... excelente aportacion

    ResponderEliminar
  4. Hola, no me sale el cuadro emergente con la contraseña, que debo hacer?

    ResponderEliminar
  5. Mi excel fue creado en office 2013... será por eso que no me funciona??? se queda pegado....

    ResponderEliminar
  6. no me ha servido, me da una usable passsword que no admite

    un saludo desde uruguay

    ResponderEliminar
  7. Muy buena herramienta y que saca de apuros, felicidades.

    ResponderEliminar
  8. mil gracias el código es excelente funciona muy bien

    ResponderEliminar
  9. Magazo, esto esta super, te agradezco el aporte.

    ResponderEliminar
  10. ¡Gracias! No siempre es posible eliminar la protección de esta manera. En tales casos, uso el programa Manyprog Excel Password Recovery http://es.manyprog.com/excel-password-recovery.php

    ResponderEliminar