Sub OtkritVseKnigi()
'Шаг 1:Объявляем переменные
Dim MyFiles As String
Dim sn As String
Dim cn As WorkbookConnection
Dim ocn As OLEDBConnection

'Шаг 2: Укажите нужную папку
MyFiles = Dir("C:\папка\*.xlsx")
Do While MyFiles <> ""

'Шаг 3: Открываем файлы один за другим
Workbooks.Open "C:\папка\" & MyFiles

'Код макроса с действиями
ActiveWorkbook.Close SaveChanges:=True

For Each cn In ActiveWorkbook.Connections
Set ocn = cn.OLEDBConnection
sn = ocn.Connection
    With ocn
        .Connection = .Connection & ";Password=12345"
        .BackgroundQuery = False
        .Refresh
        .Connection = sn
    End With
Next

'Шаг 4: Следующий файл в папке
MyFiles = Dir
Loop
End Sub