Guten Morgen,
das mit der Zugriffsberechtigung habe ich verstanden und berücksichtigt. Auch der entsprechende Umschaltbutton funktionert (siehe u.a. Script).
Wenn ich dann das Dokument neu öffne, ist er Abschnitt auch gesperrt. Nicht gehen tut es, wenn ich dann nach dem close mit ws.editdokument sofort wieder gestartet habe - aber egal, das brauche ich nicht.
Eine Frage hätte ich noch an die Experten: wenn Sie das ganze Dokument sperren müßten, würden Sie dann eher eine extra neue Maske mit aussschließlich berechneten Felder bevorzugen oder wurden Sie dies mit @DocLock erledigen.? Was ist da besser oder hat Vorteile, oder ist das egal?
Viele Grüße
Anton
Dim ws As NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Set ws = New NotesUIWorkspace
Set uidoc=ws.CurrentDocument
Set doc = uidoc.Document
Dim Item As NotesItem
Call uidoc.FieldSetText("Status", "Geschlossen")
Call uidoc.save
Call uidoc.refresh
Call uidoc.Close
Messagebox "Der Abschnitt Dokumentation wurde schreibgeschützt !" & Chr(13) , 64 ,"Information"