OpenOffice.info

Hallo Karo!

Danke noch mal für die Hilfe.
Dein Makro ist natürlich wesentlich einfacher und ich habe mir die Adresse von "Dannenhöfer" als Lesezeichen abgelegt. Das Problem mit dem Flackern war aber danach wieder da. Ich habe dann herumprobiert und festgestellt, dass meine Datei keinen zweiten Schalter verkraftet hat. Vielleicht ist das in OpenOffice ja immer so. Nun regele ich das zweite Makro über eine freie Tastenkombination und alles funktioniert tadellos.


Gruß Andy

Danke Karo,

es klappt wunderbar.


Gruß Andreas

Hallo

Nimm
osheet = thisComponent.Currentcontroller.activeSheet

Solche Dinge kann man drei Mausklicks weit bei [url=http://www.dannenhoefer.de/faqstarbasic/index.html]Michael Dannenhöfer[/url] nachschauen.

Gruß Karo

Hallo Karo !

Ich habe alles neu gemacht und im Moment klappt es auch. Nur eins müsste ich noch wissen:

Z.Zt. lautet ein Teil des Makros:


osheet = thisComponent.sheets().getbyname("Tabelle2")


Damit kann ich aber nur die Tabelle 2 sperren. Ich habe aber insges. 94 Tabellen. Jede Tabelle enthält einen Schalter, der bei Betätigung genau diese Tabelle sperren soll. Was kann ich anstatt dieser Zeile schreiben, damit das Makro immer die aktuelle Tabelle sperrt?

Danke schon mal für die erneute Hilfe.


Gruß Andreas

Hallo !

Die Verbindung zum vorherigen Code habe ich entfernt. Warum das jetzt so ist, entzieht sich meiner Kenntnis. Erst wenn ich die Auflösung so auf 160 % ziehe, ist das Flackern erst mal weg.


Gruß Andreas

Hallo
Du führst das aus über eine Schaltfläche ? - hast du die Verknüpfung zum vorherigem aufgezeichneten Code entfernt ?
Gruß Karo

Hallo !

Ich hatte es vorhin probiert, da funktionierte es nicht. Jetzt hat es funktioniert und dafür danke ich dir, wirklich!!!
Nur, das Flackern ist deswegen nicht weg, leider.

Gruß Andreas

[quote="Ironiemodus"]Dann vielen Dank Andreas, für die konstruktive Unterstützung seit 13 Uhr 30, zur Lösung [u]deines[/u] Problems[/quote]

Mal im Ernst, den Tabellennamen hättest du doch auch selbstständig berichtigen können - oder ?

Karo

Hallo !

Das ist ein Beispielpasswort, mehr nicht.


Gruß Andreas

Hallo
Gut, dann schreib da den richtigen Namen der Tabelle rein - und klär mich mal auf welche Bedeutung das "ah01" aus der aufgezeichneten Codezeile hat:
[quote]dispatcher.executeDispatch(document, ".uno:Protect", "[u]ah01[/u]", 0, args45())[/quote]
?
Mangels weiterer Informationen deinerseits hab ich eben angenommen es sei ein Tabellenname.

Gruß Karo

Hallo Karo !

Ich habe dein Makro getestet. Bei dieser Komponente kam ein Basic Fehler:

osheet = thisComponent.sheets().getbyname("ah01")

Hierbei kommt die Fehlermeldung. Die Tabelle heißt übrigens nicht "ah01" sondern in der Grundform schlicht "Tabelle2", die dann mit einem anderen Makro umbenannt wird, z.b. "01_02_09_N".

Gruß Andreas

Hallo Andreas
[quote]Dein Makro funktioniert auch nicht, weil bzgl. des "o" vor "sheet" etwas nicht stimmt[/quote]

Tut mir leid, ich kann diesem Satz nicht entnehmen [u]was[/u] da nicht stimmt, ich hab das gestern getestet und es ist ohne Fehlermeldung gelaufen.

Falls eine Fehlermeldung kommt beim Ausführen dann poste doch bitte den Originalcode den [u]Du[/u] ausgeführt hast und schreib dazu welche Zeile markiert ist.

Gruß Karo

Hallo Karo!

Ich habe einen Teil der Zellen in jedem Blatt mit einem Passwort geschützt und die für diese Zellen den Zellschutz (Schützen, Formel ausblenden) gewählt. Wenn nun jemand seine Eintragungen gemacht hat, sollen die noch nicht geschützten Zellen durch das Makro (Schalter) geschützt werden. Daher habe ich die Makroaufzeichnung in dieser Form gewählt. Wenn ich das Makro in folgender Form aufzeichne, funktioniert es nicht:

- Makro aufzeichnen
- Passwortschutz aufheben
- gesamten Bereich markieren
- Zellschutz aufheben
- erneut markieren
- Zellschutz diesmal für alle Zellen
- Passwort eingeben
- Makroaufzeichnung beenden.

Dein Makro funktioniert auch nicht, weil bzgl. des "o" vor "sheet" etwas nicht stimmt.


Gruß Andreas

sub bereiche_schuetzen

osheet = thisComponent.sheets().getbyname("ah01")

oSheet.unprotect("") 'Dort könnte ein Passwort stehen

aranges() = array("E3","Q2","D5:AH5","C9:AI38","B42","B44","E41:AD49","AI42","AI46","AK15:AT22"_
,"AN26","AT10","BD10","AU15:BD18","AW19:AX22","AY22:BD22","AU23","AY23","AT27","AK32:BD39","AK41","C9")

Dim myProtection As New com.sun.star.util.CellProtection
	myProtection.IsLocked=true
	myProtection.isHidden = 0
	myProtection.IsPrintHidden = 0
	myProtection.IsFormulaHidden = 0
for i = 0 to ubound(aranges())
	osheet.getCellRangebyName( aranges( i )).cellprotection = myProtection
next
oSheet.protect("")'Dort müsste das Passwort auch stehen
end sub

Hallo Andreas
Du hast da Makrocode aufgezeichnet der für die betroffenen Zellbereiche genau die gleichen Standardschutzeinstellungen aktiviert wie auch allgemein im Tabellenblatt ( falls du [u]nicht[/u] die Standardeinstellungen der Zellvorlagen geändert hast ? <-Bitte beantworten! )
Wenn das so ist, ist die Aufzeichnung über die einzelnen Bereiche überflüssig!

Da ich ich die Aufzeichnung inzwischen in vernünftigen Basiccode umgeschrieben habe, hänge ich das trotzdem an:

[code]sub bereiche_schuetzen

osheet = thisComponent.sheets().getbyname("ah01")

oSheet.unprotect("") 'Dort könnte ein Passwort stehen

aranges() = array("E3","Q2","D5:AH5","C9:AI38","B42","B44","E41:AD49","AI42","AI46","AK15:AT22"_
,"AN26","AT10","BD10","AU15:BD18","AW19:AX22","AY22:BD22","AU23","AY23","AT27","AK32:BD39","AK41","C9")

Dim myProtection As New com.sun.star.util.CellProtection
myProtection.IsLocked=true
myProtection.isHidden = 0
myProtection.IsPrintHidden = 0
myProtection.IsFormulaHidden = 0
for i = 0 to ubound(aranges())
osheet.getCellRangebyName( aranges( i )).cellprotection = myProtection
next
oSheet.protect("")'Dort müsste das Passwort auch stehen
end sub[/code]


Gruß Karo

Hallo Karo!

Ich habe das Makro mit der automatischen Aufzeichnung erstellt, also nicht selbst geschrieben. Im Makro selbst mag ich eigentlich gar nichts ändern, da ich nicht genau weiß, was. Kannst du mir sagen, was ich rauswerfen kann bzw. muß?


Danke schon mal


Gruß Andreas