Se me Olvido la Clave en Excel

El siguiente Ejemplo tratará de ilustrar una de las formas que podemos solventar el problema de olvido de la contraseña en Excel:

Archivo protegido en Excel que permite entregar los KPI Mensuales de las Redes Sociales de un cliente.

1.    Paso: deben darle al botón derecho del Ratón o Mouse  por encima de la hoja protegida y a continuación les saldrá el siguiente submenú, que se muestra a continuación:

2.  Paso: deben seleccionar la opción Ver código y a continuación les saldrá la siguiente pantalla, que se muestra a continuación:

3.      Paso:  Copiar y pegar el siguiente código Macro VBA en la pantalla general:

Public Sub decod()

On Error Resume Next: c = Space(10)

For a = 0 To 1: Do While p < 10: p = p + 1: Mid(c, p) = a: a = 0: Loop

For j = 32 To 126: Unprotect c & a & Chr(j)

If Not ProtectContents Then MsgBox "Clave » " & c & a & Chr(j): End

Next: Do While a = 1: a = Mid(c, p, 1): p = p - 1: Loop: Next

End Sub

Se observará de la siguiente manera:

4.      Paso: Cierre la pantalla y Regrese a la hoja Excel que desea desproteger. Ir a Herramientas, Macro, Macros y selecciona Ejecutar. Caso seguido aparece la clave alternativa y la hoja desprotegida.