Quitar contraseña en Hojas 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.

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:

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 como insertar el código, mira el tema Convertir numeros a letras en Excel, una vez insertado 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.:

Lo he usado para libros creados con Excel 2003, para otras versiones desconozco si funciona.