[RESUELTO] Macro Deshabilitar menú Opciones del menú herra
Publicado: 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
Y para activarlos nuevamente.
Les agradezco de antemano por el apoyo
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
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