Autor Tema: Cómo desproteger un Excel  (Leído 4125 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado JGuillen™

  • -^- Elite Silver -^-
  • The Communiter-
  • *
  • Mensajes: 3449
  • PHP,C#,MySQL,SQL
Cómo desproteger un Excel
« : septiembre 07, 2007, 06:56:10 am »
En algunas ocasiones te pudiste encontrar con un Excel que tenía protección de password en algunas hojas. He aquí un método sencillo y altamente efectivo.

Cómo desproteger una hoja en Excel.

Se puede desproteger la hoja mediante esta rutina que halla un password válido para la hoja (y que no tiene nada que ver con el que inicialmente tenía, ¡pero que es válido!). Copiar la rutina aquí expuesta y pegarla en un módulo cualquiera del mismo libro, con ayuda del editor de Visual Basic (ALT+F11 para abrir el editor). Cerrar el editor, seleccionar la hoja a desproteger, y ejecutar la macro breakit (ALT+F8, para seleccionarla). Tras la ejecución, un mensaje dará un password equivalente, y la hoja ya estará desprotegida.

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


Fuente : http://www.buhosoftware.netfirms.com/trucos/desprotegerexcel.htm

 :thumbsup:

Desconectado NoeL

  • Administrator
  • The Communiter-
  • *
  • Mensajes: 3257
    • SvCommunity
Re: Cómo desproteger un Excel
« Respuesta #1 : diciembre 05, 2007, 10:07:33 am »
gracias man me acaba de servir este truquito  :thumbsup:

Desconectado rcguillen

  • -^- Elite Silver -^-
  • The Communiter-
  • *
  • Mensajes: 2320
Re: Cómo desproteger un Excel
« Respuesta #2 : diciembre 05, 2007, 10:55:49 am »
mas de alguna ves nos sacara de apuros...
-:Rcguillen-NoMercy:-
-:Es inutil hacer cualquier cosa a prueba de tontos, porque los tontos son muy ingeniosos:-

Desconectado Mad Max™

  • Administrator
  • The Communiter-
  • *
  • Mensajes: 7913
  • The Road Warrior
Re: Cómo desproteger un Excel
« Respuesta #3 : diciembre 05, 2007, 12:22:02 pm »
lol ya me jodiste con esta onda   :rofl:

gracias por el tip, espero que no muchos se la puedan...

Desconectado Snipe

  • -^- Elite Gold -^-
  • The Communiter-
  • **
  • Mensajes: 4366
Re: Cómo desproteger un Excel
« Respuesta #4 : diciembre 05, 2007, 12:24:15 pm »
Y en el caso que sea de Word? Mi profesor le pone protección de copia a sus documentos, no se le puede seleccionar el texto y mucho menos copiarlo.

Desconectado Archer

  • The Communiter-
  • *
  • Mensajes: 3521
  • º\(O.o)/º en SVC desde el 2007
Re: Cómo desproteger un Excel
« Respuesta #5 : diciembre 22, 2007, 01:56:01 pm »
Excelente aporte men, ya me sirvio  :D :D

Gracias