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

[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

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

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

[fornelasa]

Por ejemplo, tal vez:

Código: Seleccionar todo

Items = Array("OptionsTreeDialog")  

Saludos.

[oolivares]

Funciono!!!
Gracias Fornelasa por tu acertada orientacion.

[oolivares]

Solamente modifique una linea ennel codigo. Gracias expertos

[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