Remover Contraseñas de Excel

QUITAR CONTRASEÑAS DE EXCEL


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.

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:

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 "¡Enorabuena!" & vbCr & "Se ha quitado la contraseña:" & vbCr & Contraseña
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub

(SI NO SABES INSERTAR EL CODIGO, VE AL FINAL DEL POST)

Una vez insertado deberá quedar así:

Remover Contraseñas de Excel

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:

contraseña

Con suerte y dependiendo de la velocidad de tu pc verás una ventana como este pasados unos minutos.:

excel

Lo he usado para libros creados con Excel 2003 y 2007.


QUITAR CONTRASEÑA A PROYECTOS VISUAL BASIC EN EXCEL


Paso 1:
Haz clic en inicio y en ejecutar teclea la siguientes letras: cmd o Pulsa Win+R y escibe CMD
PRESIONA ENTER.
Se abrirá una ventana del Símbolo de sistema
Paso 2:
Luego escribe o teclea lo siguiente: edit /70
PRESIONA ENTER
Se abrirá la ventana con menú del sistema.
Paso 3:
Desde esa venta selecciona tu archivo y lo abres. Nota importante: haz una copia del archivo original para mayor seguridad.
Paso 4:
En el menú BUSCAR, busca el texto “DPB”, asegúrate que existe inmediatamente atrás de las letras “GC=” y [Host Extender Info]
Paso 5:
Al texto “DPB” cámbialo por la siguiente escritura: “DBx”
Paso 6:
Selecciona Guardar y guarda el archivo el Archivo
Paso 7:
Ahora abre el archivo en Excel recibirás un mensaje de error, ignóralo y selecciona Si (Yes) o Aceptar
En este paso aun no podrás acceder al proyecto VBA
Paso 8:
Abre el Editor de Visual Basic
( Herramientas – Macro – Editor de Visual Basic )
Paso 9:
Abre las propiedades del proyecto eligiendo el menú Herramientas y luego la opción – Propiedades de VBA Project.
Selecciona la pestaña “Protección”
Ingresa una contraseña cualquiera y anótala
Paso 10:
Confírmala y pulsa OK ó bien en Aceptar. (La ventana se cerrará).
Paso 11:
Después vuelve a abrir Propiedades de VBA Project ubicado en el Menú Herramientas.
Allí desactivarás la casilla “Bloquear proyecto para la visualización” y borrarás TODOS los caracteres en la que hayas escrito en la contraseña así como en confirmar contraseña.
Paso 12:
Finalmente Guarda el proyecto (Boton Guardar); al abrirlo de nuevo

¡Listo tendrás tu archivo para poder ver el proyecto completo!

CAMBIAR NUMEROS A LETRAS EN EXCEL (VISUAL BASIC)


Una de las funciones de Microsoft Excel más buscadas en la red y en los foros, es como convertir un numero a texto o numero a letras, esta función no viene integrada en las formulas propias de Microsoft Excel, esto lo podemos hacer insertando un código llamado “Macro”, que no son mas que instrucciones que nos ayudan a automatizar tareas en Excel (también se usa en Word, Access etc.).

En la red se puede encontrar muchos de estos “codigos”, algunos permiten manejar varias monedas, dólares, Euros etc. Uno de los más usados y mas que excelente es el de Mauricio Baeza, ¡100% hecho en México!, seguramente ya lo haz usado, desde entonces han surgido muchas variantes y modificaciones; pero muy pocos sitios o casi nunguno muestran como usarlos.

Desde que uso Microsoft Excel he probado varios de esos códigos, he visto como mucha gente se atribuye la autoría de dichos códigos, que vergüenza pero en fin. Dentro de las diferencias que he encontrado en la conversión a texto es algo así como esto:

23 = Veintitrés
23 = Veinte y tres

Yo me inclinaría mas por el primero, No es que la segunda conversión este mal, cualquiera de las dos formas son correctas, pongamos un ejemplo, cuando voy a la tienda de la esquina y pregunto ¿Cuándo cuesta este palitroche*? El anciano muy amablemente me dice “son veintitrés pesos joven.

Vamos a empezar, primero necesitamos el código, vamos a usar este que al parecer el autor es Saúl López con una pequeña modificación de ByPaco² para que aparezca Pesos y M.N., yo le hice una pequeña modificación al código para que aparezca “SON:” como se usa aquí en México.

Function PesosMN(tyCantidad As Currency) As String
Dim lyCantidad As Currency, lyCentavos As Currency, lnDigito As Byte, lnPrimerDigito As Byte, lnSegundoDigito As Byte, lnTercerDigito As Byte, lcBloque As String, lnNumeroBloques As Byte, lnBloqueCero
Dim laUnidades As Variant, laDecenas As Variant, laCentenas As Variant, I As Variant 'Si esta como Option Explicit
tyCantidad = Round(tyCantidad, 2)
lyCantidad = Int(tyCantidad)
lyCentavos = (tyCantidad - lyCantidad) * 100
laUnidades = Array("UN", "DOS", "TRES", "CUATRO", "CINCO", "SEIS", "SIETE", "OCHO", "NUEVE", "DIEZ", "ONCE", "DOCE", "TRECE", "CATORCE", "QUINCE", "DIECISEIS", "DIECISIETE", "DIECIOCHO", "DIECINUEVE", "VEINTE", "VEINTIUN", "VEINTIDOS", "VEINTITRES", "VEINTICUATRO", "VEINTICINCO", "VEINTISEIS", "VEINTISIETE", "VEINTIOCHO", "VEINTINUEVE"
laDecenas = Array("DIEZ", "VEINTE", "TREINTA", "CUARENTA", "CINCUENTA", "SESENTA", "SETENTA", "OCHENTA", "NOVENTA"
laCentenas = Array("CIENTO", "DOSCIENTOS", "TRESCIENTOS", "CUATROCIENTOS", "QUINIENTOS", "SEISCIENTOS", "SETECIENTOS", "OCHOCIENTOS", "NOVECIENTOS"
lnNumeroBloques = 1
Do
lnPrimerDigito = 0
lnSegundoDigito = 0
lnTercerDigito = 0
lcBloque = ""
lnBloqueCero = 0
For I = 1 To 3
lnDigito = lyCantidad Mod 10
If lnDigito <> 0 Then
Select Case I
Case 1
lcBloque = " " & laUnidades(lnDigito - 1)
lnPrimerDigito = lnDigito
Case 2
If lnDigito <= 2 Then
lcBloque = " " & laUnidades((lnDigito * 10) + lnPrimerDigito - 1)
Else
lcBloque = " " & laDecenas(lnDigito - 1) & IIf(lnPrimerDigito <> 0, " Y", Null) & lcBloque
End If
lnSegundoDigito = lnDigito
Case 3
lcBloque = " " & IIf(lnDigito = 1 And lnPrimerDigito = 0 And lnSegundoDigito = 0, "CIEN", laCentenas(lnDigito - 1)) & lcBloque
lnTercerDigito = lnDigito
End Select
Else
lnBloqueCero = lnBloqueCero + 1
End If
lyCantidad = Int(lyCantidad / 10)
If lyCantidad = 0 Then
Exit For
End If
Next I
Select Case lnNumeroBloques
Case 1
PesosMN = lcBloque
Case 2
PesosMN = lcBloque & IIf(lnBloqueCero = 3, Null, " MIL" & PesosMN
Case 3
PesosMN = lcBloque & IIf(lnPrimerDigito = 1 And lnSegundoDigito = 0 And lnTercerDigito = 0, " MILLON", " MILLONES" & PesosMN
End Select
lnNumeroBloques = lnNumeroBloques + 1
Loop Until lyCantidad = 0
PesosMN = "SON: (" & PesosMN & IIf(tyCantidad > 1, " PESOS ", " PESO " & Format(Str(lyCentavos), "00" & "/100 M.N.)"
End Function
Bien, ahora que ya tenemos el código vamos a insertarlo en nuestra hoja de trabajo de Microsoft Excel. Recomendable trabajar en un libro nuevo.

Hacemos clic en Herramientas->Macros->Editor de Visual Basic, o simplemente presionando Alt+F11

password

Es importante que cierres todos los libros que tengas abierto y dejes abierto solo el libro en el que estas trabajando ya que podría dificultarte encontrar tu libro en el explorador de proyectos (lado izquierdo de tu pantalla, si no lo ves presiona Ctrl+R)

Una vez abierto el editor de Visual Basic nos vamos a Insertar->Modulo

desproteger

En la ventana que se abre pegamos el codigo de la macro

Remover Contraseñas de Excel

contraseña

Listo, ya tenemos nuestro macro listo para trabajar, cerramos el editor de Visual Basic, lo puedes hacer con Alt+Q y regresamos a Microsoft Excel

Vamos a probarlo, en la celda A1 ponemos un importe, yo pondré 1500.21, abajo, en la celda A2 ponemos =PesosMN(A1)

excel

Bien, si pudiste hacer el ejercio hasta aquí, ya puedes ponerlo en todos tus libros de trabajo, buena suerte.

BUENO, ESO ES TODO ESPERO LE AYUDE, ES MI PRIMER POST. COMENTEN.

9 comentarios - Remover Contraseñas de Excel

tito1rc
trampa o no trampa, BUENISIMOOOOOOOOO Muchas gracias!!!
Don_Roque
Directo a fav... Gracielaaa!
Ariel_LFC
Por ahora a fav, desp lo mio tranqui !!
gracias por el aporte
mpb2103
MUY BUENNO GRACIAS POR ESE DETALLAZO
ramses4
Muy buen aporte.
Gracias!
+7
Faraonides
Muy util el desbloqueador de contraseña para el vb en planillas. Lo probe y funca de diez. Gracias por el aporte!!!
+5
limer10
funciona para archivos 2010?
amaranth77
hola se puede desbloquear un documento excel 2010