DesbloquearLibro

Como desproteger una hoja o libro de excel

Spread the love

Muchas veces nos hemos encontrado con un excelente libro o herramienta en Excel, pero cuando vamos a hacer alguna modificación nos encontramos con que el archivo se encuentra protegido para modificaciones, por lo cual no podemos hacer ninguna mejora en él.

Los pasos a seguir para desbloquear son los siguientes:


Hacemos click derecho sobre un espacio vacío de las herramientas de excel y elegimos la opcion “Personalizar la cinta de opciones”

Luego en la ventana que nos aparece, seleccionamos la opción: Programador.

Luego hacemos click en la pestaña “Programador” y de allí, en el botón “Visual Basic”.

Hacemos click derecho sobre “This workbook” y elegimos la opción: “Ver código”.

Pegamos el siguiente codigo fuente en la hoja de código:

Sub BorrarPassword()
    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

Luego hacemos click en el botón ejecutar de la barra de herramientas

Nos aparece un mensaje indicando la contraseña y adicionalmente nuestra hoja ya se encuentra desbloqueada, y adicionalmente nos muestra una contraseña usable.

Si por alguna razón no se desbloquean todas las hojas, simplemente nos ubicamos en la hoja que queremos desbloquear y le damos ejecutar nuevamente al código en el editor de visual basic.
Y listo, ya podemos editar la hoja a nuestro antojo.
Espero que este articulo sea de ayuda.

Dejar una contestacion

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *