OpenOffice.info

Code: Alles auswählen

Option Explicit

Global propsObject as Object
Global oListener as Object

Const sProperty as String = "IsVisible"
'**********************************************
Const sTableToStayHidden as String = "Tabelle2"  'Hier muss Dein Tabellenname stehen
'**********************************************
Sub StartMyPropertyListener
	Dim sListenerName as string, sProperty as string
	sListenerName = "com.sun.star.beans.XPropertyChangeListener"
	
	If IsNull(propsObject) Then
		oListener = CreateUnoListener( "myChangeListener_", sListenerName )
		propsObject = ThisComponent.CurrentController
		propsObject.addPropertyChangeListener(sProperty, oListener)
	End If
End Sub

Sub StopMyPropertyListener
	If NOT IsNull(propsObject) Then
		propsObject.removePropertyChangeListener(sProperty,oListener)
		propsObject = Nothing
		oListener = Nothing
	End If
End Sub

Sub myChangeListener_disposing(oEvt As Object)
	propsObject = Nothing
	oListener = Nothing
End Sub

Sub myChangeListener_propertyChange(oEvt As Object)
	Dim oSheet as Object
	oSheet = oEvt.Source.ActiveSheet
	If oSheet.Name = sTableToStayHidden Then
		If oSheet.isVisible Then
			thisComponent.Sheets.getByName(sTableToStayHidden).isVisible = False
		End If
	End If
End Sub

Code: Alles auswählen

sub Test1

rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim oXMenu as object

rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
oXMenu = createUnoService("com.sun.star.awt.xMenu")
oXMenu.enableItem(5301, false)

rem ----------------------------------------------------------------------

end sub

Code: Alles auswählen

Sub sperren (passwort as String)
ThisComponent.protect(passwort)
End Sub