Zellschutz für einzelne Zellen aufheben

Programmierung unter AOO/LO (StarBasic, Python, Java, ...)

Moderator: Moderatoren

erikafuchs
******
Beiträge: 690
Registriert: Di, 13.02.2007 17:38
Wohnort: Büttelborn

Zellschutz für einzelne Zellen aufheben

Beitrag von erikafuchs »

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
turtle47
*******
Beiträge: 1849
Registriert: Mi, 04.01.2006 20:10
Wohnort: Rheinbach

Re: Zellschutz für einzelne Zellen aufheben

Beitrag von turtle47 »

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
Software hat keinen Verstand - benutze deinen eigenen...!

Win 7 SP1/ LibreOffice 3.4.2 OOO340m1 (Build:203) / Firefox 15.0.1 / Notebook ASUS K70IO 64 Bit-Betriebssytem
erikafuchs
******
Beiträge: 690
Registriert: Di, 13.02.2007 17:38
Wohnort: Büttelborn

Re: Zellschutz für einzelne Zellen aufheben

Beitrag von erikafuchs »

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