Quitar Contraseña Excel 2003 y 2007

Hola

Es un poco tarde (0:18) pero aun me kedan fuerzas para hacer un tutorial
jejejje

Hoy aprenderemos a Quitar la Contraseña a un archivo Excel 2003 o 2007

Haz Click Nuevamente Aqui Para Reducir La Imagen al Tamaño del Foro.

Para desbloquear y desproteger una hoja de cálculo de Excel si nos olvidamos la contraseña habra ke hacer lo siguiente

• Abre normalmente el archivo Excel que quieres desbloquear o desproteger.

• Pulsa ALT + F8 y se te abrirá una ventana; en el nombre del macro pones >Cualkier Nombre<, botón Crear.

• Se te abrirá una nueva ventana (Visual Basic), allí sustituyes y borras todo lo que esta escrito y lo reemplazas por el siguiente código....tal cual:

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 “La contraseña es: ” & 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

• Guardar mos el archivo, nos pedira si deseamos usar Visual Basic (V.B) pone ke si no mas XD!

• Abre de nuevo el archivo y apretas ALT + F8 y veras como aparece una nueva Macro con eln Nombre breakit
• Ejecutar...espera unos segundos y vooooilaa!!
  

Si todo salio bien, veras un mensaje que dice: “ La contraseña es: AAAAA…”;no es la que originalmente tenia, pero funciona XD!


Probado en: Excel 97, Excel 2000, Excel 2003,Excel 2007

Importante:Estamos trabajando con Macros por ende tiene que quitar el nivel de seguridad que viene por defecto para ejecutar macros (se quita en los menus de excel)

y Eso seria ....bonne nuit