Probier das mal so (ungetestet)
Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
If Source.EditMode Then
Exit Sub
End If
Continue = False
Dim doc As NotesDocument
Set doc = Source.Document
Dim unid As String
unid = doc.UniversalID
doc.SaveOptions = "0"
Call Source.Close
Delete doc
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Set doc = db.GetDocumentByUnid (unid)
Dim workspace As New NotesUIWorkspace
Call workspace.EditDocument (True, doc)
End Sub