Dedicado a mis proyectos en Gambas ,un lenguaje de programación parecido al Visual Basic + Java pero ampliamente mejorado y...¡¡para gnu/linux!!.La potencia del gnu/linux sumada a la facilidad del Basic



Consultas, Desarrollo de programas y petición de presupuestos:



jueves, 10 de enero de 2013

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.


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 

Pegado del código

Regresar a la hoja Excel que se desea desproteger.
Pulsar el el boton "Macros" y elegir la la que se quiere ejecutar (aparecerá la subrutina decod() y en unos segundos te desprotegerá la hoja.
En mi caso, mi fichero Excel tenia 11 hojas

Nota: el autor del código es pituco


Al final el archivo quedó asi:
Archivo de excel sin permisos para modificar las hojas que contiene













Nota:
Si no ve completo este articulo es que tienes adblock activado. Por favor desactive adblock para este blog. Gracias