Gambas Mis Programas y el Softwarelibre: Truco: Como quitar la clave a un archivo Excel 2010

Truco: Como quitar la protección a un archivo Excel 2010

En el trabajo donde uso Excel 2010 :( , hoy me he encontrado el siguiente problema: me han pasado una hoja de cálculo excel que no podía editar ya que venía con protección, y no me dejaba modificar fórmulas ni añadir filas ni cambiar formatos,etc.....

Archivo Excel original, con sus hojas con permisos.

El caso es que necesitaba modificarlo, y busque con google. Os dejo aquí el "tutorial" de como lo he conseguido quitar la protección:

Pasos a seguir:

1º Poner la "ficha Programador"

Ficha de Programador, en Excel 2010

Para habilitar la ficha Programador (normalmente no se ve), ve a:

En la ficha Archivo, elija Opciones para abrir el cuadro de diálogo Opciones de Excel.

Haga clic en Personalizar cinta de opciones en el lado izquierdo del cuadro de diálogo.

En Comandos disponibles en:, en el lado izquierdo del cuadro de diálogo, seleccione Comandos más utilizados.

En Personalice esta cinta de opciones, en el lado derecho del cuadro de diálogo, seleccione Fichas principales y, a continuación, active la casilla de verificación Programador.

Activar casilla de verificación Programador

Haga clic en Aceptar.

Después de que Excel muestre la ficha Programador, observe la ubicación de los botones Visual Basic,Macros y Seguridad de macros en la ficha.

Fuente: http://msdn.microsoft.com/es-es/library/office/ee814737(v=office.14).aspx

2º Programa en VBA

Una vez instalada la ficha Programador, pulsar en el boton de "Visual Basic", y pegar en todas las pestañas de la hoja de calculo que esten protegidas, el código siguiente:

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