Desproteger Excel

Desproteger Excel

Os mostramos un truco sencillo para desproteger hojas de Excel cuyo contenido está protegido para que no podamos ver algunas cosas.

Se trata de, una vez abierto el excel, escribir un pequeño programa en VB:

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

Una vez escrito el código, pulsar F5 para ejecturarlo y esperar….. un poco.

Al final del proceso saldrá una ventana emergente con la clave.

Fuente: Taringa (hay muchas entradas en Taringa que explican lo mismo así que no sabemos cual es la original)

Enviar comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *