Ok,
also kannst Du das wie folgt machen:
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
If Not Isnewdoc Then
Continue = False
End If
End Sub
Damit kann man neue Dokumente erstellen, aber vorhandene nicht öffnen.
Es sei darauf hingewiesen, dass das KEIN Sicherheitsfeature ist. Man kann über die Dokumenteigenschaften die Feldinhalte sehen oder Dokumente ganz normal (Structure Text) exportieren. Dann sieht man, in welchen Felderm was steht. Geht auch wenn das Design versteckt ist.
Andreas