Desproteger una hoja protegida con clave

Desproteger una hoja protegida con clave

Este truco te permitirá desproteger hojas protegidas con clave.

Funciona al menos en la versión 3.2.

Es un error garrafal de OOo, que debería subsanarse cuanto antes.

Tan sólo necesitas una macro de pocas líneas y si lo deseas, asignarla a un botón.

 

 

Deberás escribir una macro como la que aquí proponemos que proteja de nuevo la hoja activa con ninguna contraseña, o con una a tu elección, y ejecutarla.

La siguiente macro protege la hoja activa de nuevo con una contraseña en blanco, para a continuación, desprotegerla.

Puedes muy fácilmente asignarla a un botón en Calc para tenerla siempre disponible.

Sub DesprotegerHoja( )
'Desproteje una hoja aunque estuviera protegida con contraseña
dim oDoc as object

    oDoc = StarDesktop.CurrentComponent
    if oDoc.supportsService("com.sun.star.sheet.SpreadsheetDocument") then
        with ThisComponent.getCurrentController.getActiveSheet()
            .Protect( "")
            .unProtect( "")
            if not .isProtected() then
                msgbox "La hoja ha sido desprotegida", 48, "Trucos de www.open-office.es"
            else
                msgbox "Lo sentimos, pero no se pudo desproteger la hoja; " & _
                       "han corregido el error", 48, "Bien por OOo"
            end if
         end with
    end if
   
end sub

2 comentarios

Comentario De: Raul [Visitante]

Maravilloso!!! me funcionó a la primera.

Me vino de perlas. Era un Excel protegido que abrí en Openoffice. Diversas pruebas no me funcionaron. La tuya a la primera.

mil gracias,

25.08.11 @ 00:22
Comentario De: Charly [Visitante]

Muchas gracias, la macro funciona perfecto y es muy rápida.

Saludos!!

28.04.15 @ 21:28


Form is loading...