export von Notes to Excel und Exceldatei anschließend schützen

1. offizieller Beitrag

    Hallo miteinander,
    ich exportiere aus einer Notes-DB die Dokumente in ein Excel-Arbeitsblatt und möchte dieses am Ende des Exports gegen Änderungen schützen.


    wie z.B.:
    ActiveSheet.Protect DrawingObjects=True, Contents=True, Scenarios=True


    gibt's dafür einen brauchbaren Code in Notes ??


    Gruß
    Harald

    Hallo Taurec,
    das läuft über ein Script.
    Leider habe ich bisher nichts zu den COM aufrufen gefunden.
    Ich weiß nicht wie die Parameter lauten.
    So, wie von mir gepostet nimmt es Excel nicht.
    Ich hatte diesen Code als Makro in Excel aufzeichnen lassen und dann kopiert.

    • Offizieller Beitrag

    in der Regel stimmt die Reihenfolge, die in einem aufgezeichneten Makro steht.


    Dein Code müsste dann so aussehen:
    ActiveSheet.Protect True, True, True


    Gruß
    Dirk

    Rein logisches Denken verschafft uns keine Erkenntnis über die wirkliche Welt.
    Alle Erkenntnis der Wirklichkeit beginnt mit der Erfahrung und endet mit ihr.
    Alle Aussagen, zu denen man auf rein logischen Wegen kommt, sind, was die Realität angeht, vollkommen leer.
    Albert Einstein

    Hallo,
    danke für Eure Hinweise, aber leider wird das Arbeitsblatt nicht gesperrt.



    Set xlApp = CreateObject("Excel.Application")
    Set xlwb=xlApp.Workbooks.Add
    Set xlsheet =xlwb.Worksheets(1)
    xlwb.SaveAs("Q:\bnk\Notes\UHB\XXXXXXXX.xls")
    xlsheet.activate
    .
    .
    .
    xlsheet.Protect True, True, True



    Ich erhalte auch keine Fehlermeldung. Es passiert einfach nichts :-((
    Mache ich denn irgendetwas falsch ?!


    Gruß
    Harald