Dann teste mal folgendes:

Private Sub Document_Close()
ThisDocument.Saved=True
End Sub

Bei mir wurde dann selbst ein verändertes Dokument widerspruchslos geschlossen.