Desbloquear y desproteger un archivo de Excel

¿Fotos en alta resolución?, cámbiate a Premium...

Estimad@s lectores, en esta ocasión les traigo un interesante artículo que de seguro les servirá a cada uno de ustedes. Y es que a veces protegemos las hojas de un libro de Excel y luego olvidamos la contraseña y no podemos entrar, ni modificar el contenido del mismo. Pues en esta ocasión les explicare como resolver ese problema. ¡Empecemos!

[1] Abre normalmente el archivo Excel que quieres desbloquear o desproteger. [2] Pulsa ALT + F8 y se te abrirá una ventana; en el nombre del macro pones "Desproteger" o un nombre a tu elección, y pulsa el botón Crear.

[3] Se te abrirá una nueva ventana, allí borras todo lo que está escrito y lo substituyes por el siguiente código:

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 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

[4]. Pulsa el botón Ejecutar desde el menú o desde la barra de herramientas. Si todo salió bien, verás un mensaje que dice: "La contraseña es: AAAAA; no es la que originalmente tenía, pero funciona perfectamente. De ahora en más, podrás modificar todas las celdas bloqueadas.

Ingeniero Informático

Correo electrónico: aguilar.lobo@live.com

Fuente: Ing. Humberto Aguilar Lobo - Exclusivo para Tu espacio