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




