Desproteger hojas de excel con clave
miércoles, diciembre 29, 2010 | Author: Aldo JB Madueño
PARA EXCEL 2003  
5b415a0a74765006f122f979f487f751 
1. Vaya a la opcion de grabar macros. 
2. Se abre una ventana; alli buca la opción "Guardar macro en: " y selecciona "libros de macro personal" 
3. Presiona ACEPTAR 
4. Presiona la opcion "detener grabacion" para dar por finalizada la grabacion de la macro. 

Lo siguiente es editar la información e insertar el codigo que permitirá desproteger cualquier hoja de calculo de excel. 

5. Ahora Presione ALT + F11 y lo enviara al editor de Visual Basic para aplicaciones. 

6. En el panel de proyectos seleccione "VBAProject (PERSONAL.XLS)" y vaya al modulo que este abierto y borre toda la información que haya generado la macro que acaba de gabar y Luego copie y pegue el codigo que a continuación le doy: 

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
 


7. Ahora Guarde y cierre el editor. 

8. Vaya a la hoja de excel protegida y en el menu de Macros / Ver Macros, debe exister una macro que se llame "Breakit" 

9. Ejecutela..Espere un tiempo mientras descifra la clave y desprotege la hoja..Se muestra un cuadro de dialogo diciendo que se descifro la clave..Listo. 

10. Guarde los cambios. 

PARA EXCEL 2007. 

Desproteger hojas de Excel 

Muchas veces nos encontramos con libros de excel interesantes, pero no se pueden modificar las hojas por que estan protegidas, en otras ocaciones no es posible visualisar las formulas por lo mismo. No se si sirve para los archivos de versionesmas viejas de excel pero valdria la pena probar, solo toma 5 minutos, si alguien prueba y le sirve por favor haganmelo saber asi edito el post y pongo que sirve para otras versiones. 

Aca pongo un truco para desproteger esas hojas: 

1.-Abris el libro que queres desproteger, luego insertas un nuevo libro [(Alt+U) 

(esto es por si el autor haya protegido las propiedades de VBAProject del libro)] 

2.-Abrimos el editor de visual Basic con Alt+F11 (Menu Herramientas->Macro->Editor de Visual Basic) 

3.-Una vez visualizado el editor de Visual Basic, clic en menu Insertar->Modulo 
(si te perdes en la parte izquierda debes visualizar los libros abiertos, selecciona el libro que insertaste) 

4.-En el editor de codigo que nos aparece pegamos el siguiente: 

Sub Descubrir_contraseña() 
Dim a As Integer, b As Integer, c As Integer 
Dim d As Integer, e As Integer, f As Integer 
Dim a1 As Integer, a2 As Integer, a3 As Integer 
Dim a4 As Integer, a5 As Integer, a6 As Integer 
On Error Resume Next 
For a = 65 To 66: For b = 65 To 66: For c = 65 To 66 
For d = 65 To 66: For e = 65 To 66: For a1 = 65 To 66 
For a2 = 65 To 66: For a3 = 65 To 66: For a4 = 65 To 66 
For a5 = 65 To 66: For a6 = 65 To 66: For f = 32 To 126 
Contraseña = Chr(a) & Chr(b) & Chr(c) & Chr(d) & Chr(e) & Chr(a1) _ 
& Chr(a2) & Chr(a3) & Chr(a4) & Chr(a5) & Chr(a6) & Chr(f) 
ActiveSheet.Unprotect Contraseña 
If ActiveSheet.ProtectContents = False Then 
MsgBox "¡Enorabuena!" & vbCr & "La contraseña es:" & vbCr & Contraseña 
Exit Sub 
End If 
Next: Next: Next: Next: Next: Next 
Next: Next: Next: Next: Next: Next 
End Sub 

5.-Cerramos el editor de Visual Basic Alt+Q y volvemos a la hoja de Excel que queremos desproteger y presionamos Alt+F8 (Herramientas->Macro->Macros) 

6.-Nos va a salir una ventanita con el listado de las macros que contiene el libro, seleccionamos el que dice"Descubrir_contraseña" y damos clic en Ejecutar y listo, esperamos un poco y aparece otra ventanita con el pass de la hoja y esta va a estar desbloqueada. 

NoTA: de ahora en adelante esta macro estará disponible para cualquier libro de Excel..Por esto fue que sugerí la grabación en el libro de macros 
This entry was posted on miércoles, diciembre 29, 2010 and is filed under . You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.