|
Hallo zusammen
Habe vor 3 Jahren für Libre Office im Internet ein sehr gutes Makro zusammen gebastelt.
Mit diesem Makro wird ein Blatt automatisch kopiert und man kann es über eine Eingabebox neu benennen.
Nach Bestätigung der Benennung wird das Blatt ans Ende kopiert und es erscheint eine Aufforderung zur Eingabe eines Blattschutz Passwort.
Nach Eingabe und Bestätigung befindet sich das Blatt dann geschützt ganz hinten in der Reihe.
Leider kann ich dieses Makro nicht für Office 365 nutzen.
Wer kann mir dieses Makro anpassen?
sub copy_sheet_and_protect
odoc=ThisComponent
osheets=odoc.sheets
ocount=osheets.count
oActiveSheet=odoc.currentController.ActiveSheet
oNewSheetName= inputbox ("neuer Name: ","aktuelle Tabelle kopieren", "Tabelle")
if oNewSheetName = "" then exit sub
oNewPassword= inputbox("Passwort: ","Tabellenschutz", "Tabelle")
if oNewPassword = "" then exit sub
osheets.copyByName( oActiveSheet.Name, oNewSheetName, ocount )
oNewSheet=osheets(ocount)
oNewSheet.protect(oNewPassword)
msgbox ("Tabelle `"+oNewSheetName+"` angelegt und geschützt"
end Sub
würde mich tierisch auf eine Lösung freuen
Gruß Frank
|