Save Close Files

[MILTINO]

Saludos queridos amigos, por favor pueden ayudarme con esta consulta.
Encontré una macro muy interesante por la cual se abren los archivos de una carpeta utilizando una macro de un archivo en la cual la Hoja 1 contiene el nombre de los archivos y la contraseña
Lo que necesito es que con una hoja idéntica en la cual se encuentren las listas de los archivos abiertos y con las claves para cada uno, se guardarán y cerrarán en la misma carpeta que se abrieron originalmente.
Agregar macro
Gracias
Sub AbrirArchivosConContraseña()
Hoja de trabajo de Dim ws As
Dim wb como libro de trabajo
Dim filePath como cadena
Contraseña oscura como cadena
Atenuar la última fila como larga
Dim i As Long
Atenuar currentPath como cadena
' Establece la hoja donde está la tabla
Establecer ws = ThisWorkbook.Sheets(1) ' Cambia el índice o el nombre de la hoja según sea necesario
' Encuentra la última fila con datos en la columna A
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
'Obtenga la ruta del directorio actual
currentPath = EsteLibroDeTrabajo.Path
'Recorre cada fila de la tabla para abrir los archivos
Para i = 2 Hasta lastRow
'Obtén el nombre del archivo y la contraseña de la tabla
rutaDeArchivo = rutaActual & "\" & ws.Cells(i, 1).Value
contraseña = ws.Cells(i, 2).Value
' Intenta abrir el archivo con la contraseña
En caso de error, reanudar siguiente
Establecer wb = Workbooks.Open(Nombre de archivo:=rutaArchivo, contraseña:=contraseña)
Si Err.Number <> 0 Entonces
MsgBox "No se pudo abrir el archivo: " & filePath & " con la contraseña proporcionada.", vbExclamation
Err.Borrar
Terminara si
En caso de error, ir a 0
Siguiente yo
Fin del subtítulo