[RESUELTO] Duda con Macro protege y desprotege hojas

[MartyMcfly]

Buenas, saludos a todos

Estaba buscando la forma de proteger las hojas de un Libro más agilmente que utilizar el menú y encontre en el Foro una macro que cumplia con lo dicho.

En resumidas cuentas, la macro irá asignada a dos botones, uno Protege todas las hojas con la contraseña cargada en la macro y otro desprotege, lo que intente hacer es que al desproteger solicite el pass mediante un inputbox, hasta ahí todo bien, el tema es cuando el pass es incorrecto me tira un error en el código, pero si es correcto desprotege sin problemas.

Dejo un Libro para ver si me pueden dar una mano.

Proteger_Desprotege.ods

(12.07 KiB) Descargado 241 veces

[gustavodiaz00]

Hola te dejo una pequeña correción en tu código.
Creo que es lo que buscas.

Proteger_Desprotege.ods

(12.28 KiB) Descargado 267 veces

[MartyMcfly]

Gustavo, muchas gracias por las modificaciones, funciona perfecto.

Ahora, desprotejo las Hojas, voy al código y modifico la clave, protejo, desprotejo y me da el error "Se ha producido una excepcion Type: com.sun.star.lang.illegalArgumentExceptionMessage, en la linea x.UnProtect ( clave), pero igualmente desprotege las Hojas.

Adjunto:

Proteger_Desprotege.ods

(12.87 KiB) Descargado 243 veces

[gustavodiaz00]

El error que mencionas debe ser porque la hoja ya estaba protegida y cambiaste la clave.

Al querer desproteger la hoja en realidad tenia otra clave y se produce un error.

Espero que te sirva.

[MartyMcfly]

El cambio de clave en la macro lo ralizaba con las hojas deprotegidas pero no me tomaba el cambio de clave, lo que funciono es guardar luego de modificar en la IDE, luego de eso si, sin problemas.

Te agradezco Gustavo nuevamente por la ayuda que me brindaste.

[gustavodiaz00]

Recuerda que si consideras que esta resuelto marcalo como resuelto.