change "QueryModeChange" event, by adding this code:
If (Not source.editmode And source.document.HasItem("PostedDate")) Then
continue = False
Exit Sub
End If
Change "QueryOpen" event, and towards the top, add:
If (Not (source.isnewdoc) And source.editmode ) Then
If (source.document.HasItem("PostedDate") ) Then
Continue = False
Exit Sub
End If
End If