Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
	If IsNewDoc Then Exit Sub
	Status = Source.Document.DeinStatusFeld(0)
	If (Mode = 1 And Status = "DeinWert") Then
		Messagebox "Dieses Dokument kann nicht mehr bearbeitet werden.", 16, "Hinweis"
		Continue = False
	End If
End Sub
Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
	Status = Source.Document.DeinStatusFeld(0)
	If (Not source.EditMode And Status = "DeinWert") Then
		Messagebox "Dieses Dokument kann nicht mehr bearbeitet werden.", 16, "Hinweis"
		Continue = False
	End If
End Sub