Desproteger Hojas y Libros de Excel

Posteo lo que simplemente probé y funcionó.

Para desproteger hojas y libros de excel protegidos de modificación con contraseñas hay que crear y ejecutar la siguiente macro.

Al finalizar la ejecución nos mostrará la contraseña en un cuadro de dialogo.

Sub PasswordBreaker()
     'Breaks worksheet password protection.
     Dim i As Integer, j As Integer, k As Integer
     Dim l As Integer, m As Integer, n As Integer
     Dim i1 As Integer, i2 As Integer, i3 As Integer
     Dim i4 As Integer, i5 As Integer, i6 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 "One usable password is " & 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

Fuente: Ctrl C y Ctrl V Copy y paste de aquí

Si la contraseña se requiere para abrir el documento, entonces no podremos aplicar lo anterior, por lo que me resultó de utilidad el siguiente programa FreeWordExcelPassword.

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s