Sub AddChartDataListener()
    oCell1 = ThisComponent.getSheets().getByIndex(0).getCellRangeByName("A5:A6")
    oListener = CreateUnoListener("MyApp_", "com.sun.star.chart.XChartDataChangeEventListener")
    oCell1.addChartDataChangeEventListener(oListener)
End Sub

Sub MyApp_chartDataChanged(oEvent)
    dCell = ThisComponent.getSheets().getByIndex(0).GetCellByPosition(1,1)
    MsgBox dCell.String 'dCell.Value
    
End Sub

Option Explicit
Global oDocView
Global oKeyHandler
Sub RegisterKeyHandler
	oDocView = ThisComponent.getCurrentController
	oKeyHandler = _
	createUnoListener("MyApp_", "com.sun.star.awt.XKeyHandler")
					'
					writedbginfo oKeyHandler
					oDocView.addKeyHandler(oKeyHandler)
End Sub

Sub UnregisterKeyHandler
	oDocView.removeKeyHandler(oKeyHandler)
End Sub

Sub MyApp_disposing(oEvt)
	' здесь ничего не делается
End Sub

Function MyApp_KeyPressed(oEvt) As Boolean
	select case oEvt.KeyChar
	case "t", "a", "b", "u"
	MyApp_KeyPressed = True
	msgbox " клавиша """ & oEvt.KeyChar & """ не разрешена !"
	case else
	MyApp_KeyPressed = False
	end select
End Function

Function MyApp_KeyReleased(oEvt) As Boolean
	MyApp_KeyReleased = False
End Function