Private Sub Workbook_Open()
Dim wrkBoook As Workbook
Dim wrkBook As Workbook
Dim strPath As String, strFile As String
    Application.ScreenUpdating = False
Set wrkBoook = ThisWorkbook
        strPath = wrkBoook.Path  '--- адрес папки где хранится рабочая книга
        strFile = strPath & "\Mat_Elem_trigger.xls"
    Set wrkBook = Application.Workbooks.Open(strFile)
        Call PriceRegion(wrkBook, strPath)
        wrkBook.Close True '--- После срабатывания этой функции все перезаписывается!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
        
        ThisWorkbook.Close True
End Sub

Sub PriceRegion(wrkBook As Workbook, strPath As String)
    
    Dim shtOld As Worksheet, shtNew As Worksheet
    Dim rngFirst1 As Range, rngLast1 As Range, rngAll1 As Range
    Dim Nrow As Long, NrowMax As Long
    
    Set shtOld = wrkBook.Worksheets("Price")
    Set shtNew = wrkBook.Worksheets("Progon")
    
    Application.ScreenUpdating = False
    
    Call ClearSheet(shtNew)
    
    Set rngFirst1 = shtOld.Range("A3")
                NrowMax = shtOld.Rows.Count
    
    Do
        Set rngAll1 = rngFirst1.CurrentRegion
                Nrow = rngAll1.Rows.Count
            Call Progon(rngAll1)
            Call ReverceList1(wrkBook, shtOld, shtNew, rngFirst1)
        Set rngLast1 = rngAll1.Cells(Nrow, 1)
        Set rngFirst1 = rngLast1.End(xlDown)
        
    Loop Until rngFirst1.Row = NrowMax

        shtNew.SaveAs Filename:=strPath & "\price" & Format(Now(), "yyyymmdd_hhnnss") & ".txt", FileFormat:=xlUnicodeText, CreateBackup:=True
End Sub

Private Sub Workbook_Open()
Dim wrkBoook As Workbook
Dim wrkBook As Workbook
Dim strPath As String, strFile As String
    
Set wrkBoook = ThisWorkbook
        strPath = wrkBoook.Path  '--- адрес папки где хранится рабочая книга

        strFile = strPath & "\El_trigger.xls"  '--- Книга в которой хранятся данные на одном листе и подставляются обработанные на другой лист

    Set wrkBook = Application.Workbooks.Open(strFile) '--- открываем книгу и передаем объект в другой sub

        Call PriceRegion(wrkBook, strPath) '--- вызов другого sub с процедурой обработки таблиц одного листа и копирования данных на другой лист
'--- в другом sub данные с промежуточного листа, куда произошла вся выгрузка обработанных этим sab данных 
             shtNew.SaveAs strPath & "\price" & Format(Now(), "yyyymmdd_hhnnss") & ".txt", xlUnicodeText  '--- эта строка взята из конца процедуры другого sub
'--- на этом этапе нормально создается файл с обработанными данными
        wrkBook.Close True '--- БЕЗ этой команды созданный файл содержит нормальные данные, но книга закрывается с запросом об сохранении изменения в созданном файле price
'--- если подтвердить сохранение, то данные переписываются на текстовые данные без форматирования, которые содержатся на листе, который нужно обработать. Если просто закрыть, то все НОРМАЛЬНО
'--- С ЭТОЙ командой закрытия создающийся файл перезаписывается автоматически. В ЧЕМ ЗДЕСЬ ПОДВОХ!!!!!!!!!!!!!!!!!!!!!!!!!
        
        ThisWorkbook.Close True  '--- файл всегда закрывается нормально
End Sub