OpenOffice.info

Aloha

[quote="Berni"]Die Überschrift verwenden geht nicht? Oder ist arg kompliziert?[/quote]
Doch, geht natürlich auch und ist prinzipiell auch nicht kompliziert.

Siehe auch [url=http://www.dannenhoefer.de/faqstarbasic/WiekannmaninArbeitsbltternsuchen..html]StarBasic FAQ: Wie kann man in Arbeitsblättern suchen?[/url].

oCleaningDestinationSheet.getCellRangeByName( "Hugo" )

versorge vor dem Einfügen weiterer Spalten den Bereich [color=#008000]AO2[/color] bis [color=#008000]AP100[/color] mit einem [color=#0040FF]Einfügen>Namen>Festlegen...[/color] eindeutigen Namen (bspw.: "Hugo"), und ändere die Basicanweisung in
[code]oCleaningDestinationSheet.getCellRangeByName( "Hugo" )[/code]
Ok, das kannte ich noch nicht. Klingt nach einer guten Lösung. Ich werde es probieren.

Die Überschrift verwenden geht nicht? Oder ist arg kompliziert?

	Dim sheetIsProtected As Boolean
	sheetIsProtected = oPaymentSheet.isProtected()

	If (sheetIsProtected) Then
		oPaymentSheet.Unprotect("")
	End If

	REM ..... diverse zugriffe .....

	If (sheetIsProtected) Then
		oPaymentSheet.Protect("")
	End If

Es sind zwei Makros, die mit protect arbeiten. Beide werden durch Listener aufgerufen, die auf die Änderung von Zellen reagieren.

Die OO Version ist 3.2.0 und das OS ist Win7.

Aha, dann müßte ich also sowas machen?

[code]
Dim sheetIsProtected As Boolean
sheetIsProtected = oPaymentSheet.isProtected()

If (sheetIsProtected) Then
oPaymentSheet.Unprotect("")
End If

REM ..... diverse zugriffe .....

If (sheetIsProtected) Then
oPaymentSheet.Protect("")
End If
[/code]

oCleaningDestinationSheet.getCellRangeByName( "Hugo" )

[quote="Berni"]Das zweite betrifft Zugriffe auf Spalten. Da gibt eines Anweisung der folgenden (oder ähnlicher) Art:

[code]
oDestinationCellRange = oCleaningDestinationSheet.getCellRangeByName("AO2:AP100")
[/code][/quote]


In Beantwortung dieser zweiten Frage:

versorge vor dem Einfügen weiterer Spalten den Bereich [color=#008000]AO2[/color] bis [color=#008000]AP100[/color] mit einem [color=#0040FF]Einfügen>Namen>Festlegen...[/color] eindeutigen Namen (bspw.: "Hugo"), und ändere die Basicanweisung in
[code]oCleaningDestinationSheet.getCellRangeByName( "Hugo" )[/code]

If oCleaningDestinationSheet.isProtected() Then 

[quote="Berni"]Wenn die Tabelle zuvor manuell "entschützt" wurde (um etwas zu ändern) schlägt obiges Skript zu, und schaltet den Schutz ständig wieder ein. Zum Irre werden. Ich würde das gerne so ändern, dass das protect() nur aufgerufen wird, wenn vor dem unprotect() die Tabelle tatsächlich geschützt war.[/quote]

In Beantwortung dieser ersten Frage:

Wie "schlägt" das Makro zu? Wie wird es aufgerufen?


Ansonsten kann man den Zustand des Blattschutzes auch abfragen:

[code]If oCleaningDestinationSheet.isProtected() Then [/code]


Zur Vollständigkeit halber bitte bei Fragen auch immer OOo-Version und Betriebssystem angeben; Danke.

	ThisComponent.isUndoEnabled = False 
	oCleaningDestinationSheet.unprotect("")
	
	oDestinationCellRange.setDataArray(oSourceCellRange.getDataArray())

	oCleaningDestinationSheet.protect("")
	ThisComponent.isUndoEnabled = True 

	oDestinationCellRange = oCleaningDestinationSheet.getCellRangeByName("AO2:AP100")

Hallo allerseits!

Ich habe die armen Menschen im Calc Forum eben ziemlich (unnötig) maltretiert. Letztendlich konnte ich in meiner Calc-Datei zwei Probleme mit Makros isolieren, die ich lösen muss. Leider habe ich kaum Erfahrung mit Makros. Ich verstehe sie jetzt, aber ändern ist eine andere Sache.

Das erste Problem ist das automatische Entschützen und Schützen von Tabellen:

[code]
ThisComponent.isUndoEnabled = False
oCleaningDestinationSheet.unprotect("")

oDestinationCellRange.setDataArray(oSourceCellRange.getDataArray())

oCleaningDestinationSheet.protect("")
ThisComponent.isUndoEnabled = True
[/code]

Das protect ist das Problem. Wenn die Tabelle zuvor manuell "entschützt" wurde (um etwas zu ändern) schlägt obiges Skript zu, und schaltet den Schutz ständig wieder ein. Zum Irre werden. Ich würde das gerne so ändern, dass das protect() nur aufgerufen wird, wenn vor dem unprotect() die Tabelle tatsächlich geschützt war.

Das zweite betrifft Zugriffe auf Spalten. Da gibt eines Anweisung der folgenden (oder ähnlicher) Art:

[code]
oDestinationCellRange = oCleaningDestinationSheet.getCellRangeByName("AO2:AP100")
[/code]

Wenn neue Spalten eingefügt werden, gerät alles durcheinander, weil die Spaltennummer ("AO" und "AP") sich verschieben. Jede Spalte hat in der ersten Zeile aber eine Überschrift die eigentlich nie geändert wird (da sie in Serienbriefen benutzt wird). Ist es möglich statt der Spaltennummer die Überschrift in der ersten Zeile jeder Spalte zu verwenden? Wie?



[color=#800000]Moderation,4[/color]: Betreff konkretisiert