Private Sub Порядок_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   ПоискНомера  
End Sub

Sub ПоискНомера()
    Dim nomer As Variant
    
    nomer = Me.Порядок: On Error Resume Next
    Workbooks("List" .Activate
    Sheets(1).Unprotect ("2" )
    Dim ro As Range: Set ro = Sheets(1).Range("A:A" ) .Find(nomer, , , xlWhole).EntireRow
    If Err Then Exit Sub
   
   Me.Порядок = ro.Cells(1)
   Me.Номер = ro.Cells(2)
   Me.Клиент = ro.Cells(3)
  
  Sheets(1).Protect "2", DrawingObjects:=False, Contents:=True, Scenarios:= _
     True, AllowFormattingColumns:=True, AllowFormattingRows:=True, _
     AllowSorting:=True, AllowFiltering:=True   
End Sub

Sub Макрос1()
 Dim FilesToOpen
 Dim x As Integer

 Application.ScreenUpdating = False 
 FilesToOpen = Array("c:\Моя папка\*.xls"  ;)  

 x = 1
 While x <= UBound(FilesToOpen)
 Set importWB = Workbooks.Open(Filename:=FilesToOpen(x))
 importWB.Sheets(1).UsedRange
 importWB.Close savechanges:=False
 x = x + 1
 Wend

Application.ScreenUpdating = True

End Sub