ähhmm.... So "einfach" geht es dann doch nicht...
Du darfst in den beiden Events nicht den Editmode SETZEN, sondern Du musst das ganze über die Continue- Variable abbrechen.
Der korrekte Code sieht dann so aus:
VORSICHT: Im QueryModechange und im QueryOpen muss man unterschiedliche Stati abfragen:
Das QuerymodeChange wird abgefragt, BEVOR der Modus geändert wird: Also ist zu dem Zeitpunkt, zu dem wir abbrechen wollen, Source.EditMode FALSE (es soll ja in diesem Moment auf TRUE geändert werden, das DOkument ist zu diesem Zeitpunkt noch im Lesemodus)
Anders im QueryOpen: Hier ist schon festgelegt, ob das Dokument nun im Edit- Oder im Lese- Mode geöffnet werden soll. Hier ist der "abzubrechende" Status: Source.EditMode = True
Also sieht das so aus:
QueryModeChange:
If Source.EditMode = False then
messagebox "Des darfsch Du aber net"
Continue = False
exit sub
end if
QueryOpen
If Source.EditMode = True then
messagebox "Des darfsch Du aber net"
Continue = False
exit sub
end if
Ach so: Das wurde auch noch nicht erwähnt: in den Events herumzupfuschen ist KEINE Sicherheit: jeder User kann sich einen Agenten zusammenklicken: Einfach Aktion, Feldwert ändern, und so in einem Dokument, das nur durch die Events geschützt ist, trotzdem Felder ändern...
Echte Sicherheit gibt es nur mit Autor- Rechten und Autor- Feldern... Da muss ich mich dann auch nicht im die Events kümmern, da verhindert notes ganz automatisch das bearbeiten.
HTH
Tode