da ich mir ja schon die ganze Zeit hier selber antworte:
ich habe es jetzt mit
Sub Queryclose(Source As Notesuidatabase, Continue As Variant)
Dim pwd As Variant
pwd = Inputbox ("Geben Sie das Passwort an!")
If pwd = "xyz" Then
Continue = True
Else
Continue = False
Print "Falsches Kennwort"
Exit Sub
End If
End Sub
gelöst!
Stellt sich mir nur noch die Frage:
Wie kriege ich es jetzt hin, das das script merkt, hey Notes wird geschlossen, dann brauche ich ja kein Passwort mehr, sondern schließe jetzt auch die Datenbank!!

Aber wie?
Ich denke das ich mir in einer Stunde wieder selber ne Antwort geben werde!

Grüsse aus Hamburg