Option Explicit

Public Sub Alltext_to_exell()
    Dim oFD As FileDialog
    Dim x, lf As Long
    Dim wb As Workbook, wbRes As Workbook
    
    Set wbRes = Workbooks.Add(xlWBATWorksheet)
    Application.DisplayAlerts = 0
    'назначаем переменной ссылку на экземпляр диалога
    Set oFD = Application.FileDialog(msoFileDialogFilePicker)
    With oFD 'используем короткое обращение к объекту
    'With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = True 'мультивыбор
        .Title = "Выбрать TXT-профили" 'заголовок окна диалога
        .Filters.Clear 'очищаем установленные ранее типы файлов
        .Filters.Add "Text files", "*.txt", 1 'добавляем возможность выбора текстовых файлов
        '.Filters.Add "Excel files", "*.xls*;*.xlsx", 2 'устанавливаем возможность выбора только файлов Excel
        .FilterIndex = 1 'устанавливаем тип файлов по умолчанию
        .InitialFileName = ThisWorkbook.Path & "\" 'назначаем папку отображения и имя файла по умолчанию
        .InitialView = msoFileDialogViewDetails 'вид диалогового окна
        If .Show = 0 Then Exit Sub 'показывает диалог
        'цикл по коллекции выбранных в диалоге файлов
        For lf = 1 To .SelectedItems.Count
            x = .SelectedItems(lf) 'считываем полный путь к файлу
            Set wb = Workbooks.Open(x) 'открытие книги
            wb.Sheets(1).Move after:=wbRes.Sheets(wbRes.Sheets.Count)
        Next
    End With
    If wbRes.Sheets.Count > 1 Then
        wbRes.Sheets(1).Delete
    End If
Application.DisplayAlerts = -1
End Sub

username1 = Environ("USERNAME")
    If InStr(1, "|chebykinvv|petrov|Inanov|", "|" & username1 & "|", 1) > 0 Then
        For Each sh In ThisWorkbook.Worksheets
            sh.Visible = True
        Next
    Else
        ThisWorkbook.Close
    End If

ActiveSheet.Shapes(1).Top = Range("B1").Top
ActiveSheet.Shapes(1).Left = Range("B1").Left

ActiveSheet.Shapes(1).Fill.ForeColor.RGB

=(СЧЁТЕСЛИ(A2:S2;"<10")/2)+СЧЁТЕСЛИ(A2:S2;">10")

Sub Get_All_File_from_Folder()
    Dim sFolder As String, sFiles As String
    Dim wb As Workbook, ws As Worksheet
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = False Then Exit Sub
        sFolder = .SelectedItems(1)
    End With
    sFolder = sFolder & IIf(Right(sFolder, 1) = Application.PathSeparator, "", Application.PathSeparator)
    Application.ScreenUpdating = False
    sFiles = Dir(sFolder & "*.xls*")
    Do While sFiles <> ""
        'открываем книгу
        Set wb = Application.Workbooks.Open(sFolder & sFiles, False, False)
        For Each ws In wb.Worksheets
            'пропуск ошибок на случай какой-нибудь сводной на листе
            On Error Resume Next
                'заменяем все данные на листе на значения
                ws.UsedRange.Value = ws.UsedRange.Value
            On Error GoTo 0
        Next
        'Закрываем книгу с сохранением изменений
        wb.Close True
        sFiles = Dir
    Loop
    Application.ScreenUpdating = True
End Sub