OpenOffice.info

Hallo,

Vielen Dank für die Rückmeldung.

[quote=nobijohn post_id=302147 time=1723467395 user_id=67126]
Danke für die kompetente Hilfe. Als Nicht-Informatiker tu ich mich bissl schwer mit den 700 Seiten Pitonyak.
[/quote]

Bezüglich Pitonyak (Respekt!):
Das folgende kurze Gedicht ist im russischen Forum (LO/AOO) leicht zu finden.

[size=95][i]Руб. за сто, что Питоньяк
Любит водку и коньяк!
Потому что мне, без оных, -
Не понять его никак... [/i][/size]

@cwolan: Danke für die kompetente Hilfe. Als Nicht-Informatiker tu ich mich bissl schwer mit den 700 Seiten Pitonyak.

Sub UnprotectCell
Doc=ThisComponent
Sheet=Doc.Sheets(1)
Sheet.Unprotect("")
Cell=Sheet.getCellByPosition(4,2)
Prot=Cell.CellProtection
Prot.IsLocked=False
Cell.CellProtection = Prot
Sheet.Protect("")
end Sub

Hallo,

[b][color=#0000FF]CellProtection[/color] [/b]ist ein Struct [1].

Laut [2]:

[list]
[*] Structs werden mit ihren Werten kopiert. Viele Nutzer sind frustriert, wenn sie zum ersten Mal auf dieses Verhalten stoßen, aber es gibt einen sehr guten Grund dafür. Zuerst einmal das Problem: oBorder.TopLine.OuterLineWidth = 2 macht nicht das, was man wollte, weil Sprachstrukturen TopLine ein Struct ist und der Wert als Kopie und nicht als Referenz zurückgegeben wird. Das Codebröckchen ändert in dieser Form die äußere Randbreite in einer Kopie des Structs und nicht in dem Struct, das mit dem Border-Objekt verknüpft ist. Folgendes ist der richtige Weg, den Rahmen zu ändern:
v = oBorder.TopLine : v.OuterLineWidth = 2 : oBorder.TopLine = v.

[/list]


Deshalb

[code]
Sub UnprotectCell
Doc=ThisComponent
Sheet=Doc.Sheets(1)
Sheet.Unprotect("")
Cell=Sheet.getCellByPosition(4,2)
Prot=Cell.CellProtection
Prot.IsLocked=False
Cell.CellProtection = Prot
Sheet.Protect("")
end Sub
[/code]


-------------------

[1] [url=https://api.libreoffice.org/docs/idl/ref/CellProtection_8idl.html]CellProtection[/url]

[2] Andrew Pitonyak, "BASIC-Makros für OpenOffice und LibreOffice"
Ins Deutsche übertragen und bearbeitet von Volker Lenhardt, S. 57-58

@Karolus: Danke für deine Antwort. [b]Funktioniert nicht[/b], egal welche Schreibweise ich versuche. Hast du das ausprobiert? Beim schrittweisen debuggen geht alles, ausser dass die Zelle freigegeben wird.

Sub UnprotectCell 'geht nicht
Doc=ThisComponent
Sheet=Doc.Sheets(1)
Sheet.Unprotect("")
Cell=Sheet.getCellByPosition(4,2)  ' das ist E3 !
Cell.CellProtection.IsLocked=False
Sheet.Protect("")
end Sub

Hallo

lass doch mal die Anführungzeichen um »False« weg.

[code]Sub UnprotectCell 'geht nicht
Doc=ThisComponent
Sheet=Doc.Sheets(1)
Sheet.Unprotect("")
Cell=Sheet.getCellByPosition(4,2) ' das ist E3 !
Cell.CellProtection.IsLocked=False
Sheet.Protect("")
end Sub[/code]

Hallo Wissende,
um per Makro den Zellschutz für eine Zelle aufzuheben und später wieder zu schützen habe ich folgendes probiert:

Sub UnprotectCell 'geht nicht
Doc=ThisComponent
Sheet=Doc.Sheets(1)
'Sheet.Unprotect("")
Cell=Sheet.getCellByPosition(4,2)
Prot=Cell.CellProtection
Prot.IsLocked="false"
Sheet.Protect("")
end Sub

keine Fehlermeldung, macgt aber auch nichts. Kann jemand helfen?