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

Discute sobre la aplicación de hojas de cálculo

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

Notapor oolivares » Mar Nov 28, 2017 5:35 pm

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
Última edición por fornelasa el Jue Nov 30, 2017 5:51 pm, editado 2 veces en total
Razón: colocar etiquetas code y marcar tema como resuelto correctamente.
OpenOffice version 4.1.0 en windows 8
oolivares
 
Mensajes: 45
Registrado: Mar Mar 10, 2015 10:44 pm

Re: Macro Deshabilitar menu Opciones del menu herramientas

Notapor fornelasa » Mar Nov 28, 2017 6:22 pm

Por ejemplo, tal vez:
Código: Seleccionar todo   Expandir vistaContraer vista
Items = Array("OptionsTreeDialog") 

Saludos.
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: 3246
Registrado: Jue Feb 17, 2011 8:30 pm
Ubicación: Estado de México, México.

Re: Macro Deshabilitar menu Opciones del menu herramientas

Notapor oolivares » Jue Nov 30, 2017 3:09 pm

Funciono!!! :bravo:
Gracias Fornelasa por tu acertada orientacion.
OpenOffice version 4.1.0 en windows 8
oolivares
 
Mensajes: 45
Registrado: Mar Mar 10, 2015 10:44 pm

[RESUELTO]Macro Deshabilitar menu Opciones del menu herramie

Notapor oolivares » Jue Nov 30, 2017 3:17 pm

Solamente modifique una linea ennel codigo. Gracias expertos
OpenOffice version 4.1.0 en windows 8
oolivares
 
Mensajes: 45
Registrado: Mar Mar 10, 2015 10:44 pm

Re: Macro Deshabilitar menu Opciones del menu herramientas

Notapor mauricio » Jue Nov 30, 2017 5:19 pm

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
______________________________________________
"Todo cuanto no podemos dar nos posee". - André Gide
LibreOffice 6.2 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
Avatar de Usuario
mauricio
 
Mensajes: 5991
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: CDMX


Volver a Calc

¿Quién está conectado?

Usuarios navegando por este Foro: Google [Bot] y 9 invitados