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:

   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.