Página 1 de 1

[RESUELTO] Macro Deshabilitar menú Opciones del menú herra

NotaPublicado: Mar Nov 28, 2017 5:35 pm
por oolivares
Hola expertos.
Acudo a su apoyo para poder crear una macro para poder deshabilitar el submenu Opciones del menu Herramientas en calc al abrir en archivo y volverlo a activar al cerrar el archivo. Tengo una macro que me deshabilita copiar, pegar del menu Editar y trate de modificarlo anotando en lugar de copy la palabra options pero no me funciona, quizas porque en alguna parte del codigo especifique unicamente al menu Editar. Probe con algunas otras cosas de ese menu y funcionan.
Por favor una orientacion al respecto.
Les copio los codigos que tengo

Código: Seleccionar todo   Expandir vistaContraer vista
Sub Desactivar_Items
  Dim Proveedor As Object
  Dim Argumentos As Object
  Dim Propiedades(0) As New com.sun.star.beans.PropertyValue
          Proveedor = CreateUnoService("com.sun.star.configuration.ConfigurationProvider")
  Propiedades(0).Name = "nodepath"
Propiedades(0).Value = "/org.openoffice.Office.Commands/Execute/Disabled"
           Argumentos = Proveedor.createInstanceWithArguments("com.sun.star.configuration.ConfigurationUpdateAccess", Propiedades)
                Items = Array("Copy","Paste", "Cut", "PasteSpecial") 
     For i = 0 To UBound(Items)
                Actual = Argumentos.createInstanceWithArguments(Array())
        Actual.Command = Items(i)
    Argumentos.insertByName("Command_" & Items(i), Actual)
    Next i
  Argumentos.commitChanges()
End Sub


Y para activarlos nuevamente.

Código: Seleccionar todo   Expandir vistaContraer vista
Sub Activar_Items
  Dim Proveedor As Object
  Dim Argumentos As Object
  Dim Propiedades(0) As New com.sun.star.beans.PropertyValue
            Proveedor = CreateUnoService("com.sun.star.configuration.ConfigurationProvider")
   Propiedades(0).Name = "nodepath"
  Propiedades(0).Value = "/org.openoffice.Office.Commands/Execute/Disabled"
            Argumentos = Proveedor.createInstanceWithArguments("com.sun.star.configuration.ConfigurationUpdateAccess", Propiedades) 
  Items = Argumentos.ElementNames 
  For i = 0 To UBound(Items)
    Argumentos.removeByName(Items(i))
  Next i
  Argumentos.commitChanges()
End Sub


Les agradezco de antemano por el apoyo

Re: Macro Deshabilitar menu Opciones del menu herramientas

NotaPublicado: Mar Nov 28, 2017 6:22 pm
por fornelasa
Por ejemplo, tal vez:
Código: Seleccionar todo   Expandir vistaContraer vista
Items = Array("OptionsTreeDialog") 

Saludos.

Re: Macro Deshabilitar menu Opciones del menu herramientas

NotaPublicado: Jue Nov 30, 2017 3:09 pm
por oolivares
Funciono!!! :bravo:
Gracias Fornelasa por tu acertada orientacion.

[RESUELTO]Macro Deshabilitar menu Opciones del menu herramie

NotaPublicado: Jue Nov 30, 2017 3:17 pm
por oolivares
Solamente modifique una linea ennel codigo. Gracias expertos

Re: Macro Deshabilitar menu Opciones del menu herramientas

NotaPublicado: Jue Nov 30, 2017 5:19 pm
por mauricio
Por favor, si consideras que el tema ha sido resuelto, marcalo como tal, mira en: ¿Cómo marcar como RESUELTO un tema?, de esta forma, conseguiremos un Foro más ordenado.

Saludos