Flackern nach Ausführen eines Makro

[schane65]

Hallo !

Nachdem ich ein Makro zum Sperren von Teilen einer Tabelle ausgeführt habe, flackert plötzlich die Seite in der Seitenansicht. Erst wenn ich eine hohe Auflösung (160 % und höher) wähle, hört das Flackern auf. Vielleicht liegt es ja am Makro, da es ohne dieses Makro nicht passiert.
Kann mir jemand helfen?

Danke schon mal

Gruß Andreas

Hier mal das Makro:


Sub Main

End Sub


sub sperren
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Protect"
args1(0).Value = false

dispatcher.executeDispatch(document, ".uno:Protect", "ah01", 0, args1())

rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ToPoint"
args2(0).Value = "$E$3"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())

rem ----------------------------------------------------------------------
dim args3(3) as new com.sun.star.beans.PropertyValue
args3(0).Name = "Protection.Locked"
args3(0).Value = true
args3(1).Name = "Protection.FormulasHidden"
args3(1).Value = false
args3(2).Name = "Protection.Hidden"
args3(2).Value = false
args3(3).Name = "Protection.HiddenInPrintout"
args3(3).Value = false

dispatcher.executeDispatch(document, ".uno:Protection", "", 0, args3())

rem ----------------------------------------------------------------------
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "ToPoint"
args4(0).Value = "$Q$2"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args4())

rem ----------------------------------------------------------------------
dim args5(3) as new com.sun.star.beans.PropertyValue
args5(0).Name = "Protection.Locked"
args5(0).Value = true
args5(1).Name = "Protection.FormulasHidden"
args5(1).Value = false
args5(2).Name = "Protection.Hidden"
args5(2).Value = false
args5(3).Name = "Protection.HiddenInPrintout"
args5(3).Value = false

dispatcher.executeDispatch(document, ".uno:Protection", "", 0, args5())

rem ----------------------------------------------------------------------
dim args6(0) as new com.sun.star.beans.PropertyValue
args6(0).Name = "ToPoint"
args6(0).Value = "$D$5:$AH$5"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args6())

rem ----------------------------------------------------------------------
dim args7(3) as new com.sun.star.beans.PropertyValue
args7(0).Name = "Protection.Locked"
args7(0).Value = true
args7(1).Name = "Protection.FormulasHidden"
args7(1).Value = false
args7(2).Name = "Protection.Hidden"
args7(2).Value = false
args7(3).Name = "Protection.HiddenInPrintout"
args7(3).Value = false

dispatcher.executeDispatch(document, ".uno:Protection", "", 0, args7())

rem ----------------------------------------------------------------------
dim args8(0) as new com.sun.star.beans.PropertyValue
args8(0).Name = "ToPoint"
args8(0).Value = "$C$9:$AI$38"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args8())

rem ----------------------------------------------------------------------
dim args9(3) as new com.sun.star.beans.PropertyValue
args9(0).Name = "Protection.Locked"
args9(0).Value = true
args9(1).Name = "Protection.FormulasHidden"
args9(1).Value = false
args9(2).Name = "Protection.Hidden"
args9(2).Value = false
args9(3).Name = "Protection.HiddenInPrintout"
args9(3).Value = false

dispatcher.executeDispatch(document, ".uno:Protection", "", 0, args9())

rem ----------------------------------------------------------------------
dim args10(0) as new com.sun.star.beans.PropertyValue
args10(0).Name = "ToPoint"
args10(0).Value = "$B$42"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args10())

rem ----------------------------------------------------------------------
dim args11(3) as new com.sun.star.beans.PropertyValue
args11(0).Name = "Protection.Locked"
args11(0).Value = true
args11(1).Name = "Protection.FormulasHidden"
args11(1).Value = false
args11(2).Name = "Protection.Hidden"
args11(2).Value = false
args11(3).Name = "Protection.HiddenInPrintout"
args11(3).Value = false

dispatcher.executeDispatch(document, ".uno:Protection", "", 0, args11())

rem ----------------------------------------------------------------------
dim args12(0) as new com.sun.star.beans.PropertyValue
args12(0).Name = "ToPoint"
args12(0).Value = "$B$44"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args12())

rem ----------------------------------------------------------------------
dim args13(3) as new com.sun.star.beans.PropertyValue
args13(0).Name = "Protection.Locked"
args13(0).Value = true
args13(1).Name = "Protection.FormulasHidden"
args13(1).Value = false
args13(2).Name = "Protection.Hidden"
args13(2).Value = false
args13(3).Name = "Protection.HiddenInPrintout"
args13(3).Value = false

dispatcher.executeDispatch(document, ".uno:Protection", "", 0, args13())

rem ----------------------------------------------------------------------
dim args14(0) as new com.sun.star.beans.PropertyValue
args14(0).Name = "ToPoint"
args14(0).Value = "$E$41:$AD$49"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args14())

rem ----------------------------------------------------------------------
dim args15(3) as new com.sun.star.beans.PropertyValue
args15(0).Name = "Protection.Locked"
args15(0).Value = true
args15(1).Name = "Protection.FormulasHidden"
args15(1).Value = false
args15(2).Name = "Protection.Hidden"
args15(2).Value = false
args15(3).Name = "Protection.HiddenInPrintout"
args15(3).Value = false

dispatcher.executeDispatch(document, ".uno:Protection", "", 0, args15())

rem ----------------------------------------------------------------------
dim args16(0) as new com.sun.star.beans.PropertyValue
args16(0).Name = "ToPoint"
args16(0).Value = "$AI$42"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args16())

rem ----------------------------------------------------------------------
dim args17(3) as new com.sun.star.beans.PropertyValue
args17(0).Name = "Protection.Locked"
args17(0).Value = true
args17(1).Name = "Protection.FormulasHidden"
args17(1).Value = false
args17(2).Name = "Protection.Hidden"
args17(2).Value = false
args17(3).Name = "Protection.HiddenInPrintout"
args17(3).Value = false

dispatcher.executeDispatch(document, ".uno:Protection", "", 0, args17())

rem ----------------------------------------------------------------------
dim args18(0) as new com.sun.star.beans.PropertyValue
args18(0).Name = "ToPoint"
args18(0).Value = "$AI$46"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args18())

rem ----------------------------------------------------------------------
dim args19(3) as new com.sun.star.beans.PropertyValue
args19(0).Name = "Protection.Locked"
args19(0).Value = true
args19(1).Name = "Protection.FormulasHidden"
args19(1).Value = false
args19(2).Name = "Protection.Hidden"
args19(2).Value = false
args19(3).Name = "Protection.HiddenInPrintout"
args19(3).Value = false

dispatcher.executeDispatch(document, ".uno:Protection", "", 0, args19())

rem ----------------------------------------------------------------------
dim args20(0) as new com.sun.star.beans.PropertyValue
args20(0).Name = "ToPoint"
args20(0).Value = "$AK$15:$AT$22"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args20())

rem ----------------------------------------------------------------------
dim args21(0) as new com.sun.star.beans.PropertyValue
args21(0).Name = "ToPoint"
args21(0).Value = "$AN$26"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args21())

rem ----------------------------------------------------------------------
dim args22(0) as new com.sun.star.beans.PropertyValue
args22(0).Name = "ToPoint"
args22(0).Value = "$AT$10"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args22())

rem ----------------------------------------------------------------------
dim args23(3) as new com.sun.star.beans.PropertyValue
args23(0).Name = "Protection.Locked"
args23(0).Value = true
args23(1).Name = "Protection.FormulasHidden"
args23(1).Value = false
args23(2).Name = "Protection.Hidden"
args23(2).Value = false
args23(3).Name = "Protection.HiddenInPrintout"
args23(3).Value = false

dispatcher.executeDispatch(document, ".uno:Protection", "", 0, args23())

rem ----------------------------------------------------------------------
dim args24(0) as new com.sun.star.beans.PropertyValue
args24(0).Name = "ToPoint"
args24(0).Value = "$BD$10"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args24())

rem ----------------------------------------------------------------------
dim args25(3) as new com.sun.star.beans.PropertyValue
args25(0).Name = "Protection.Locked"
args25(0).Value = true
args25(1).Name = "Protection.FormulasHidden"
args25(1).Value = false
args25(2).Name = "Protection.Hidden"
args25(2).Value = false
args25(3).Name = "Protection.HiddenInPrintout"
args25(3).Value = false

dispatcher.executeDispatch(document, ".uno:Protection", "", 0, args25())

rem ----------------------------------------------------------------------
dim args26(0) as new com.sun.star.beans.PropertyValue
args26(0).Name = "ToPoint"
args26(0).Value = "$AK$15:$AT$22"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args26())

rem ----------------------------------------------------------------------
dim args27(3) as new com.sun.star.beans.PropertyValue
args27(0).Name = "Protection.Locked"
args27(0).Value = true
args27(1).Name = "Protection.FormulasHidden"
args27(1).Value = false
args27(2).Name = "Protection.Hidden"
args27(2).Value = false
args27(3).Name = "Protection.HiddenInPrintout"
args27(3).Value = false

dispatcher.executeDispatch(document, ".uno:Protection", "", 0, args27())

rem ----------------------------------------------------------------------
dim args28(0) as new com.sun.star.beans.PropertyValue
args28(0).Name = "ToPoint"
args28(0).Value = "$AU$15:$BD$18"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args28())

rem ----------------------------------------------------------------------
dim args29(3) as new com.sun.star.beans.PropertyValue
args29(0).Name = "Protection.Locked"
args29(0).Value = true
args29(1).Name = "Protection.FormulasHidden"
args29(1).Value = false
args29(2).Name = "Protection.Hidden"
args29(2).Value = false
args29(3).Name = "Protection.HiddenInPrintout"
args29(3).Value = false

dispatcher.executeDispatch(document, ".uno:Protection", "", 0, args29())

rem ----------------------------------------------------------------------
dim args30(0) as new com.sun.star.beans.PropertyValue
args30(0).Name = "ToPoint"
args30(0).Value = "$AW$19:$AX$22"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args30())

rem ----------------------------------------------------------------------
dim args31(3) as new com.sun.star.beans.PropertyValue
args31(0).Name = "Protection.Locked"
args31(0).Value = true
args31(1).Name = "Protection.FormulasHidden"
args31(1).Value = false
args31(2).Name = "Protection.Hidden"
args31(2).Value = false
args31(3).Name = "Protection.HiddenInPrintout"
args31(3).Value = false

dispatcher.executeDispatch(document, ".uno:Protection", "", 0, args31())

rem ----------------------------------------------------------------------
dim args32(0) as new com.sun.star.beans.PropertyValue
args32(0).Name = "ToPoint"
args32(0).Value = "$AY$22:$BD$22"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args32())

rem ----------------------------------------------------------------------
dim args33(3) as new com.sun.star.beans.PropertyValue
args33(0).Name = "Protection.Locked"
args33(0).Value = true
args33(1).Name = "Protection.FormulasHidden"
args33(1).Value = false
args33(2).Name = "Protection.Hidden"
args33(2).Value = false
args33(3).Name = "Protection.HiddenInPrintout"
args33(3).Value = false

dispatcher.executeDispatch(document, ".uno:Protection", "", 0, args33())

rem ----------------------------------------------------------------------
dim args34(0) as new com.sun.star.beans.PropertyValue
args34(0).Name = "ToPoint"
args34(0).Value = "$AU$23"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args34())

rem ----------------------------------------------------------------------
dim args35(3) as new com.sun.star.beans.PropertyValue
args35(0).Name = "Protection.Locked"
args35(0).Value = true
args35(1).Name = "Protection.FormulasHidden"
args35(1).Value = false
args35(2).Name = "Protection.Hidden"
args35(2).Value = false
args35(3).Name = "Protection.HiddenInPrintout"
args35(3).Value = false

dispatcher.executeDispatch(document, ".uno:Protection", "", 0, args35())

rem ----------------------------------------------------------------------
dim args36(0) as new com.sun.star.beans.PropertyValue
args36(0).Name = "ToPoint"
args36(0).Value = "$AY$23"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args36())

rem ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:FormatCellDialog", "", 0, Array())

rem ----------------------------------------------------------------------
dim args38(0) as new com.sun.star.beans.PropertyValue
args38(0).Name = "ToPoint"
args38(0).Value = "$AT$27"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args38())

rem ----------------------------------------------------------------------
dim args39(3) as new com.sun.star.beans.PropertyValue
args39(0).Name = "Protection.Locked"
args39(0).Value = true
args39(1).Name = "Protection.FormulasHidden"
args39(1).Value = false
args39(2).Name = "Protection.Hidden"
args39(2).Value = false
args39(3).Name = "Protection.HiddenInPrintout"
args39(3).Value = false

dispatcher.executeDispatch(document, ".uno:Protection", "", 0, args39())

rem ----------------------------------------------------------------------
dim args40(0) as new com.sun.star.beans.PropertyValue
args40(0).Name = "ToPoint"
args40(0).Value = "$AK$32:$BD$39"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args40())

rem ----------------------------------------------------------------------
dim args41(3) as new com.sun.star.beans.PropertyValue
args41(0).Name = "Protection.Locked"
args41(0).Value = true
args41(1).Name = "Protection.FormulasHidden"
args41(1).Value = false
args41(2).Name = "Protection.Hidden"
args41(2).Value = false
args41(3).Name = "Protection.HiddenInPrintout"
args41(3).Value = false

dispatcher.executeDispatch(document, ".uno:Protection", "", 0, args41())

rem ----------------------------------------------------------------------
dim args42(0) as new com.sun.star.beans.PropertyValue
args42(0).Name = "ToPoint"
args42(0).Value = "$AK$41"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args42())

rem ----------------------------------------------------------------------
dim args43(3) as new com.sun.star.beans.PropertyValue
args43(0).Name = "Protection.Locked"
args43(0).Value = true
args43(1).Name = "Protection.FormulasHidden"
args43(1).Value = false
args43(2).Name = "Protection.Hidden"
args43(2).Value = false
args43(3).Name = "Protection.HiddenInPrintout"
args43(3).Value = false

dispatcher.executeDispatch(document, ".uno:Protection", "", 0, args43())

rem ----------------------------------------------------------------------
dim args44(0) as new com.sun.star.beans.PropertyValue
args44(0).Name = "ToPoint"
args44(0).Value = "$C$9"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args44())

rem ----------------------------------------------------------------------
dim args45(0) as new com.sun.star.beans.PropertyValue
args45(0).Name = "Protect"
args45(0).Value = true

dispatcher.executeDispatch(document, ".uno:Protect", "ah01", 0, args45())


end sub

[Karolus]

Hallo Andreas
Entferne mal in deiner Makroaufzeichnung die überflüssigen Blöcke - oder hast du gedacht dass da jetzt jemand für dich aufräumt ?

Gruß Karo

[schane65]

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

[Karolus]

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 nicht 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: Alles auswählen

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

Gruß Karo

[schane65]

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

[Karolus]

Hallo Andreas

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

Tut mir leid, ich kann diesem Satz nicht entnehmen was 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 Du ausgeführt hast und schreib dazu welche Zeile markiert ist.

Gruß Karo

[schane65]

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

[Karolus]

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:

dispatcher.executeDispatch(document, ".uno:Protect", "ah01", 0, args45())

?
Mangels weiterer Informationen deinerseits hab ich eben angenommen es sei ein Tabellenname.

Gruß Karo

[schane65]

Hallo !

Das ist ein Beispielpasswort, mehr nicht.


Gruß Andreas

[Karolus]

Dann vielen Dank Andreas, für die konstruktive Unterstützung seit 13 Uhr 30, zur Lösung deines Problems

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

Karo

[schane65]

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

[Karolus]

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

[schane65]

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

[schane65]

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

[Karolus]

Hallo

Nimm
osheet = thisComponent.Currentcontroller.activeSheet

Solche Dinge kann man drei Mausklicks weit bei Michael Dannenhöfer nachschauen.

Gruß Karo