OpenOffice.info

Verfasst: **So, 27.02.2011 17:53**

Ihr Lieben,
ich benötige Eure Hilfe: Ich möchte per Makro unter einer bestimmten Bedingung den Zellschutz aufheben. Mein Code lautet:

Code: Alles auswählen

      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

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

Verfasst: **So, 27.02.2011 18:36**

Hi Pit,

Code: Alles auswählen

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

sollte funktionieren.

Viel Erfolg.

Jürgen

Verfasst: **So, 27.02.2011 22:40**

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

OpenOffice.info

Zellschutz für einzelne Zellen aufheben

Zellschutz für einzelne Zellen aufheben

Re: Zellschutz für einzelne Zellen aufheben

Re: Zellschutz für einzelne Zellen aufheben