OpenOffice.info

Lieber Jürgen,
klappt wunderbar - vielen Dank!
Grüße von
Pit

	...
	oCell = oSheetOut.getCellByPosition(n,m)
	Dim myProtection As New com.sun.star.util.CellProtection
	myProtection.IsLocked = False
	oCell.CellProtection = myProtection
	...

Hi Pit,

[code] ...
oCell = oSheetOut.getCellByPosition(n,m)
Dim myProtection As New com.sun.star.util.CellProtection
myProtection.IsLocked = False
oCell.CellProtection = myProtection
...[/code]
sollte funktionieren.

Viel Erfolg.

Jürgen

      for n=1 to max
          if Bedingung then 
             oZelle=outSheet.getCellByPosition(n,m)
             oZelle.CellBackColor=RGB(255,0,0)
             oZellschutz=oZelle.CellProtection
             oZellSchutz.isLocked=False
             oZelle.CellProtection=oZellSchutz             
          end if
      next n

Ihr Lieben,
ich benötige Eure Hilfe: Ich möchte per Makro unter einer bestimmten Bedingung den Zellschutz aufheben. Mein Code lautet:
[code] for n=1 to max
if Bedingung then
oZelle=outSheet.getCellByPosition(n,m)
oZelle.CellBackColor=RGB(255,0,0)
oZellschutz=oZelle.CellProtection
oZellSchutz.isLocked=False
oZelle.CellProtection=oZellSchutz
end if
next n[/code]
Die Zellen "oZelle" werden wunderbar rot gefärbt, der Zellschutz aber nicht aufgehoben. Wenn ich am Ende das Tabellenblatt schütze sind alle Zellen geschützt obwohl die roten dann m.E. nicht geschützt sein sollten. Was stimmt nicht in meinem Code?
Vielen Dank für Eure Mühe
Pit