ich habe jetzt noch eine Frage:
ich habe eine Tabelle erstellt, da man, sortiert, als Bericht drucken kann. Dazu muss sie aber sortiert werden.
Die Sortierung konnte ich ganz leicht als Makro aufzeichnen und speichern. Wenn die Tabelle allerdings geschützt ist muss ich zuerst den Schutz aufheben und danach wieder setzen.
Wenn ich das Aufheben und das Setzen des Schutzen mit einem aufgezeichneten Makro mache wird jedesmal nach dem Passwort gefragt weil diese Frage beim Aufzeichnen nicht mit aufgezeichnet wird. Im Grunde macht das Sinn weil sonst jeder im Macro das Passwort auslesen könnte.
In meinem Fall habe ich den Schutz nich wegen der geheimhaltung gesetzt sondern "nur" als Schutz für die enthaltenen Formeln.
Daher meine Frage: was muss ich in den Makro einbauen damit die Frage nicht mehr gestellt wird (wobei das Passwort durchaus auch leer sein kann.
Das Makro sieht jetzt so aus:
Code: Alles auswählen
sub SortGesamt
dim document as object
dim dispatcher as object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$A$5"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "By"
args2(0).Value = 1
dispatcher.executeDispatch(document, ".uno:GoDownToEndOfDataSel", "", 0, args2())
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "By"
args3(0).Value = 1
dispatcher.executeDispatch(document, ".uno:GoRightToEndOfDataSel", "", 0, args3())
rem dispatcher.executeDispatch(document, ".uno:DataSort", "", 0, Array())
dim args5(13) as new com.sun.star.beans.PropertyValue
args5(0).Name = "ByRows"
args5(0).Value = true
args5(1).Name = "HasHeader"
args5(1).Value = false
args5(2).Name = "CaseSensitive"
args5(2).Value = false
args5(3).Name = "NaturalSort"
args5(3).Value = false
args5(4).Name = "IncludeAttribs"
args5(4).Value = true
args5(5).Name = "UserDefIndex"
args5(5).Value = 0
args5(6).Name = "Col1"
args5(6).Value = 6
args5(7).Name = "Ascending1"
args5(7).Value = false
args5(8).Name = "Col2"
args5(8).Value = 3
args5(9).Name = "Ascending2"
args5(9).Value = true
args5(10).Name = "Col3"
args5(10).Value = 1
args5(11).Name = "Ascending3"
args5(11).Value = true
args5(12).Name = "IncludeComments"
args5(12).Value = false
args5(13).Name = "IncludeImages"
args5(13).Value = true
dispatcher.executeDispatch(document, ".uno:DataSort", "", 0, args5())
dim args6(0) as new com.sun.star.beans.PropertyValue
args6(0).Name = "ToPoint"
args6(0).Value = "$A$1"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args6())
end sub