Página 1 de 1

[RESUELTO]Evitar que se puedan seleccionar celdas protegidas

NotaPublicado: Dom Ene 22, 2017 7:46 pm
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.

Re: Evitar que se puedan seleccionar celdas protegidas

NotaPublicado: Lun Ene 23, 2017 7:28 pm
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   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.

Re: Evitar que se puedan seleccionar celdas protegidas

NotaPublicado: Lun Ene 23, 2017 9:59 pm
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.