Public Sub CleanFilterExcel()
    Dim xl As Excel.Application
    Dim WB As Excel.Workbook
    Dim WS As Excel.Worksheet
    Dim ControlFile As String
       ControlFile = ActiveWorkbook.Name
           stNamePath = "E:\Users\ASS\Desktop\"
           stNameFile = "Калькулятор.xlsb"
     Set xl = CreateObject("Excel.Application")
         xl.Visible = False
     Set WB = Excel.Workbooks.Open(stNamePath & stNameFile)
     Set WS = WB.Worksheets("Расчет")
         Windows(stNameFile).Activate
           'WS.Visible = xlSheetVisible 'При запуске файла, макрос (Workbook_Open) отображает скрытые листы в т.ч. лист "Расчет"
         WS.Select 'ЗДЕСЬ возникает ОШИБКА
      If WS.FilterMode Then WS.ShowAllData 'Если установлен фильтр очищаем
      WB.Close saveChanges:=True  'закрыть рабочую книгу с сохранением изменений
       Set xl = Nothing
       Set WB = Nothing
       Set WS = Nothing
      Windows(ControlFile).Activate
End Sub

On Error Resume Next
     Application.DisplayAlerts = False
       ActiveWindow.Close False   'и/или
       ActiveWorkbook.Close SaveChanges:=False  'и/или
       Application.Quit  'и/или
        
       Workbooks.Open Filename:=ThisWorkbook.FullName, ReadOnly:=True
     Application.DisplayAlerts = True

       ActiveWorkbook.Unprotect "777777" 'снимаем защиту из книги
           Sheets(2).Visible = True
           Sheets(2).Select
           Sheets(3).Visible = True
           Sheets(4).Visible = True
           Sheets(5).Visible = True
           Sheets(1).Visible = Flase  'лист как включить все макросы и доверия к VBA
      ActiveWorkbook.Protect "777777", Structure:=True, Windows:=False

@echo off
echo.
attrib +r "R:\Журнал.xlsm"
   start  R:\Журнал.xlsm
attrib -r "R:\Журнал.xlsm"
echo.
exit

        Me.TextBox5.Value = ComboBox1.List(ComboBox1.ListIndex, 2)
        Me.TextBox5.Value = ComboBox1.List(ComboBox1.ListIndex, 3)