При закрытии документов постоянно спрашивает о сохранении

Написан модуль

Sub FormMacro_CloseSelectedDOCs(TCSActiveModule) 'Закрыть выделенные документы
    Dim Result
    Dim SaveEnabled
    Dim I
   
    Result = MsgBox("Выделено " & TCSActiveModule.SelectedRowsCount & " документов." & vbNewLine & "Закрывать с сохранением?", vbSystemModal + vbQuestion + vbYesNoCancel + vbDefaultButton2, "Закрытие выделенныйх документов")

    If Result = vbCancel Then
    Else
        If Result = vbYes Then
            SaveEnabled = True
        Else
            SaveEnabled = False
        End If

    'Call TCSApp.ShowMessageBox("Сообщение.", "SaveEnabled=" + CStr(SaveEnabled) + "; Result=" + CStr(Result))

        For I=0 To TCSActiveModule.SelectedRowsCount-1
            If TCSActiveModule.GotoSelectedRow(I) Then
                pbStr = CSDN_DESEAN_Library.ShowProgressBarNote(pbStr,"...Закрываем документы...     Осталось: " + CStr(TCSActiveModule.SelectedRowsCount - I) )
                TCSActiveModule.CloseDoc(SaveEnabled)
            End If
        Next
    End If
    Call TCSApp.HideProgressMessage
    TCSActiveModule.Refresh
End Sub

Пользователь указывает, что бы закрыть все выделенные документы без сохранения, и все равно при закрытии каждого документа TCS спрашивает сохранять версию документа или нет...как быть при открытии сборки в 10000 позиций?????