Buenas tardes.
Una de las macros que tengo protege y desprotege la hoja con los métodos .Protect y .Unprotect
Con esto evito que se puedan modificar las celdas protegidas pero también quisiera evitar que se seleccionen.
¿Hay alguna forma de hacerlo mediante macros?
Muchas gracias.
[RESUELTO]Evitar que se puedan seleccionar celdas protegidas
-
- Mensajes: 10
- Registrado: Vie Jun 24, 2016 4:53 pm
[RESUELTO]Evitar que se puedan seleccionar celdas protegidas
Última edición por Lucasasecas el Lun Ene 23, 2017 10:00 pm, editado 1 vez en total.
Libre Office 5.1.4.2. en Windows 10
Re: Evitar que se puedan seleccionar celdas protegidas
Parecería que no puede hacerse de una forma "normal" con macro según este bug
https://bz.apache.org/ooo/show_bug.cgi?id=123703
Tal vez esto funcione, elige una celda equis desprotegida por ejemplo B2
Saludos, Federico.
https://bz.apache.org/ooo/show_bug.cgi?id=123703
Tal vez esto funcione, elige una celda equis desprotegida por ejemplo B2
Código: Seleccionar todo
Sub Main
celdaActual = Thiscomponent.getcurrentselection
if celdaActual.CellProtection.islocked = true then
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$B$2"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
end if
End Sub
- Adjuntos
-
- NoSeleccionar.ods
- No poder seleccionar celdas protegidas.
- (10.66 KiB) Descargado 199 veces
lo 6.2.0 | aoo 4.1.6 | win 7/10
¡Un aplauso para todos los que luchan por proteger y promover la Web abierta!
¡Un aplauso para todos los que luchan por proteger y promover la Web abierta!
-
- Mensajes: 10
- Registrado: Vie Jun 24, 2016 4:53 pm
Re: Evitar que se puedan seleccionar celdas protegidas
Muchas gracias por la respuesta.
Es una solución ingeniosa! Incluso no es necesario que la hoja esté protegida.
De nuevo, muchas gracias.
Es una solución ingeniosa! Incluso no es necesario que la hoja esté protegida.
De nuevo, muchas gracias.
Libre Office 5.1.4.2. en Windows 10