[AP] 限制copy & paste

'//限制不能copy & paste
$KeepPrivate = "1"


'//
Sub Querysave(Source As Notesuidocument, Continue As Variant)
If CheckAllFields() = False Then
continue = False
End If
End Sub


'//取消$KeepPrivate = "1"
FIELD $KeepPrivate := @DeleteField;