Algo que me preguntan con frecuencia es como quitarle la contraseña a los archivos de Excel que nos hemos bajado de Internet, ya sea algún formulario, alguna hoja de trabajo, etc., podemos intentar seleccionar el contenido de la hoja y copiarla en una hoja nueva, probablemente podamos usar los datos o algunos de las funciones del libro y podamos adaptarlo a nuestras necesidades, pero en ocasiones el autor del libro quita o evita la opción de seleccionar las celdas bloqueadas, en este caso no funciona el copiar y pegar en otra hoja.
Existen programas que nos pueden ayudar a descubrir la contraseña del libro o de la hoja, testeando cientos de combinaciones por segundo o “usando la fuerza bruta”, pero desgraciadamente estos programas son de paga, uno de ellos es Accent EXCEL Password Recovery otro de los mejorcitos es Excel Key.
Si te gusta leer, en este blog puedes aprender sobre como hacerte de tu versión full, recuerda, si te gusta algún programa cómpralo, di no a la piratería.
Vamos a ver como podemos desbloquear una hoja de Excel usando un pequeño código que podemos insertar en el editor de Visual Basic: :mota::mota::mota:
Ya insertado el código cierra el editor y regresa a Microsoft Excel y ve a Herramientas->Macro->Macros o con el método abreviado Alt+F8, en la lista de macros selecciona “Quitar contraseña” y clic ejecutar:
Con suerte y dependiendo de la velocidad de tu pc verás una ventana como este pasados unos minutos.:
Existen programas que nos pueden ayudar a descubrir la contraseña del libro o de la hoja, testeando cientos de combinaciones por segundo o “usando la fuerza bruta”, pero desgraciadamente estos programas son de paga, uno de ellos es Accent EXCEL Password Recovery otro de los mejorcitos es Excel Key.
Si te gusta leer, en este blog puedes aprender sobre como hacerte de tu versión full, recuerda, si te gusta algún programa cómpralo, di no a la piratería.
Vamos a ver como podemos desbloquear una hoja de Excel usando un pequeño código que podemos insertar en el editor de Visual Basic: :mota::mota::mota:
Sub Quitar_contraseña()Dim a As Integer, b As Integer, c As IntegerDim d As Integer, e As Integer, f As IntegerDim a1 As Integer, a2 As Integer, a3 As IntegerDim a4 As Integer, a5 As Integer, a6 As IntegerOn Error Resume NextFor a = 65 To 66: For b = 65 To 66: For c = 65 To 66For d = 65 To 66: For e = 65 To 66: For a1 = 65 To 66For a2 = 65 To 66: For a3 = 65 To 66: For a4 = 65 To 66For a5 = 65 To 66: For a6 = 65 To 66: For f = 32 To 126Contraseñ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ñaIf ActiveSheet.ProtectContents = False ThenMsgBox "¡Enorabuena!" & vbCr & "Se ha quitado la contraseña:" & vbCr & ContraseñaExit SubEnd IfNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextEnd Sub
deberá quedar así:
Ya insertado el código cierra el editor y regresa a Microsoft Excel y ve a Herramientas->Macro->Macros o con el método abreviado Alt+F8, en la lista de macros selecciona “Quitar contraseña” y clic ejecutar:
Con suerte y dependiendo de la velocidad de tu pc verás una ventana como este pasados unos minutos.:
para incertar la macro solo deven crear una copiar el codigo y pegarlo y despues guardarlo, para oficce 2003 solo herramientas, incertar codigo visual basic o algo asi (ya no lo recuerdo) y por ultimo algo que se refiera a macros, funciona a la perfeccion a lomucho tarda 5 min
:vientos::vientos::vientos:
:vientos::vientos::vientos: