[RESUELTO]Evitar que se puedan seleccionar celdas protegidas

Desarrollo de Macros y programación en UNO, usar las API, llamar programas externos...

[RESUELTO]Evitar que se puedan seleccionar celdas protegidas

Notapor Lucasasecas » Dom Ene 22, 2017 7:46 pm

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.
Ú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
Lucasasecas
 
Mensajes: 10
Registrado: Vie Jun 24, 2016 4:53 pm

Re: Evitar que se puedan seleccionar celdas protegidas

Notapor fornelasa » Lun Ene 23, 2017 7:28 pm

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
Código: Seleccionar todo   Expandir vistaContraer vista
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

Saludos, Federico.
Adjuntos
NoSeleccionar.ods
No poder seleccionar celdas protegidas.
(10.66 KiB) 86 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!
Avatar de Usuario
fornelasa
 
Mensajes: 3216
Registrado: Jue Feb 17, 2011 8:30 pm
Ubicación: Estado de México, México.

Re: Evitar que se puedan seleccionar celdas protegidas

Notapor Lucasasecas » Lun Ene 23, 2017 9:59 pm

Muchas gracias por la respuesta.
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
Lucasasecas
 
Mensajes: 10
Registrado: Vie Jun 24, 2016 4:53 pm


Volver a Macros y API UNO

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 2 invitados