Microsoft Excel 2013

Microsoft Excel 2013

En algún momento nos a tocado que se nos olvida la contraseña de un documento en Excel, y pues para poder desbloquear y desproteger una hoja de calculo es necesario crear una rutina con estos sencillos pasos:

  1. Abre el documento Excel y dirígete a la hoja que deseas desbloquear o desproteger.
  2. Pulsa ALT + F8, y se abrirá una ventana; cambia el nombre del macro a Desproteger y después pulsa en Crear.
  3. Se abrirá una nueva ventana y en ella debes pegar el siguiente código:
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    
    Sub desproteger()
      Dim i As Integer, j As Integer, k As Integer
      Dim l As Integer, m As Integer, n As Integer
      Dim o As Integer, p As Integer, q As Integer
      Dim r As Integer, s As Integer, t 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 n = 65 To 66
                  For o = 65 To 66
                    For p = 65 To 66
                      For q = 65 To 66
                        For r = 65 To 66
                          For s = 65 To 66
                            For t = 32 To 126
                              ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _ 
                              Chr(l) & Chr(m) & Chr(n) & Chr(o) & Chr(p) & _
                              Chr(q) & Chr(r) & Chr(s) & Chr(t)
                              If ActiveSheet.ProtectContents = False Then
                                MsgBox "La contraseña es: " & Chr(i) & Chr(j) & _
                                Chr(k) & Chr(l) & Chr(m) & Chr(n) & Chr(o) & Chr(p) _
                                & Chr(q) & Chr(r) & Chr(s) & Chr(t)
                                Exit Sub
                              End If
                            Next
                          Next
                        Next
                      Next
                    Next
                  Next
                Next
              Next
            Next
          Next
        Next
      Next
    End Sub
  4. Pulsa el botón Ejecutar (flecha verde) desde la barra de herramientas o desde el menú.

Realizado esto correctamente saldrá un mensaje diciendo “La contraseña es: AAA…” o algo parecido, no sera la contraseña correcta, pero con eso quedara desbloqueada y desprotegida la hoja de calculo completamente.

Probado desde Excel 97 hasta Excel 2013, espero que les sirva tanto como a mi.