Quitar Contraseña a Excel xp, 2003, 2007 y 2010

Como quitarle la contraseña a los archivos de Excel???
 
En ocasiones el libro de excel 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 para descubrir la contraseña del libro o de la hoja pero tienes que pagar por ellos.
Aqui veremos como desbloquear una hoja de Excel usando un pequeño código que podemos insertar en el editor de Visual Basic:

Lo primero que tenemos que hacer es lo siguiente:

1.- En la hoja con proteccion crearemos la macro como hacemos esto es muy facil hay que entrar al editor de visual en la version 2007 no les sera facil encontrarla asi que hay que realizar lo siguiente
En el menu de excel en el logotipo seleccionar opciones de excel y palomear la opcion de mostrar ficha de programador o en su caso alt + f11
Una vez creado esto tendremos nuestra pestaña de programador dentro de nuestra aplicacion lo cual nos ayudara a tener nuesto editor de visual basic.

2.- Agregamos un modulo o lo insertamos y dentro del modulo poner lo siguiente

Sub Quitar_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 "¡ShadowM@ster!" & vbCr & "Se Elimino:" & vbCr & Contraseña
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub

Ya insertado el código se guada y se 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” o con el nombre que se guardo nuestro modulo y clic ejecutar:
Depende de la velocidad de tu pc verás una ventana como este pasados unos minutos.:

Funciona para versiones xp, 2003 y 2007
Saludos!!!

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s