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...