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
Volver
Si te gustó, puedes votar. No precisa registro