OpenOffice.info

Sub Main
	cell = ThisComponent.Sheets.getByName("Tabelle1").getCellRangeByName("A1")
	cp = cell.CellProtection
	cp.IsFormulaHidden = True
	'cp.IsHidden = True
	cell.CellProtection = cp
End Sub

Wie bei VBA (MS Excel) auch gibt es dafür keinen Basic-Befehl, sondern es handelt sich um eine Eigenschaft der Zelle, im Falle von OpenOffice um ein sog. Struct:

http://www.openoffice.org/api/docs/common/ref/com/sun/star/util/CellProtection.html

Verwendung z.B.:

[code]Sub Main
cell = ThisComponent.Sheets.getByName("Tabelle1").getCellRangeByName("A1")
cp = cell.CellProtection
cp.IsFormulaHidden = True
'cp.IsHidden = True
cell.CellProtection = cp
End Sub
[/code]


Gruß
Stephan

Hallo,
Ich suche das Basic-Kommando für [Protection] -> [Hide Formula].