Application.DisplayAlerts = False
    On Error Resume Next
    If Not Sheets("Data") Is Nothing Then Worksheets("Data").Delete
    If Not Sheets("XDO_HIDDEN") Is Nothing Then Worksheets("XDO_HIDDEN").Delete
    If Not Sheets("Old_Data.xdo") Is Nothing Then Worksheets("Old_Data.xdo").Delete
    Set objVBProject = ActiveWorkbook.VBProject
    For Each objWindow In objVBProject.VBE.Windows
        If objWindow.Type =  6  Then
            objWindow.Visible = True
            objWindow.SetFocus: Exit For
        End If
    Next
    SendKeys "~~", True: SendKeys "{ENTER}", True
    If ActiveWorkbook.VBProject.Protection =  1  Then
        MsgBox "VBProject Защищен" & vbCrLf
        Exit Sub
    End If
    For Each oVBComponent In ActiveWorkbook.VBProject.VBComponents
        On Error Resume Next
        With oVBComponent
            Select Case .Type
            Case  1 
                .Collection.Remove oVBComponent
            Case  2 
                .Collection.Remove oVBComponent
            Case  3 
                .Collection.Remove oVBComponent
            Case  100 
                If oVBComponent.Name <> "ЭтаКнига" Then
                    lCountLines = .CodeModule.CountOfLines
                    .CodeModule.DeleteLines  1 , lCountLines
                End If
            End Select
        End With
    Next
    With ActiveWorkbook.VBProject.VBComponents("ЭтаКнига")
        lCountLines = .CodeModule.CountOfLines
        .CodeModule.DeleteLines  1 , lCountLines
    End With
    Set oVBComponent = Nothing
    Set objVBProject = Nothing: Set objVBComponent = Nothing: Set objWindow = Nothing
    ActiveWorkbook.Save
    Application.Quit