Desproteger hoja excel con contraseña


El resultado de aplicar este programa es la obtención de una contraseña valida para desproteger la hoja de excel. Al decir que es una contraseña valida quiero decir que no es la original pero nos permite desbloquearla igualmente.
El truco consiste en una rutina de programación que al ejecutarla (y esperar un rato mientras consigue la contraseña) nos muestra un mensaje con una contraseña válida.
Para ello, el código que pondré a continuación hay que ponerlo en un módulo de visual basic de la aplicación Excel. Lo puedes encontrar en el menú de Excel "Herramientas / Macro / Editor de Visual Basic" o bien pulsando (ALT+F11) para abrir el editor, pegamos el código, cerramos el editor.
Ahora seleccionamos la hoja que queremos desproteger y ejecutamos la macro "breakit" (ALT+F8 para seleccionarla). Tras la ejecución, un mensaje dará una contraseña equivalente, y la hoja ya estará desprotegida.

Visual Basic:


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 "Un password valido 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

    publicado en , |

    1 comentarios:

    Anónimo dijo...

    Muchas gracias funciono perfecto...

    Publicar un comentario

    Entrada más reciente Entrada antigua Inicio

    Seguidores

    GoNetworker.com :: GO Training - Gana mientras aprendes

    Tira de Humor

    Tira Ecol
    La Tira Ecol
    Pulsa en Ir para verla completa

    Podcast

    ¿Cual es la mejor marca de ordenadores?

    Chat Informatica


    IBSN: Internet Blog Serial Number 36-19-09-1974