[RESUELTO]Evitar que se puedan seleccionar celdas protegidas

Desarrollo de Macros y programación en UNO, usar las API, llamar programas externos...
Responder
Lucasasecas
Mensajes: 10
Registrado: Vie Jun 24, 2016 4:53 pm

[RESUELTO]Evitar que se puedan seleccionar celdas protegidas

Mensaje por Lucasasecas »

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
Avatar de Usuario
fornelasa
Mensajes: 3268
Registrado: Jue Feb 17, 2011 8:30 pm
Ubicación: Estado de México, México.

Re: Evitar que se puedan seleccionar celdas protegidas

Mensaje por fornelasa »

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

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) Descargado 198 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!
Lucasasecas
Mensajes: 10
Registrado: Vie Jun 24, 2016 4:53 pm

Re: Evitar que se puedan seleccionar celdas protegidas

Mensaje por Lucasasecas »

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
Responder