Macro cerrar archivos abiertos
¿Puedo mediante una macro verificar si hay otros archivos xls abiertos y cerrar todos MENOS el que estoy ejecutando?
1 respuesta
Respuesta
1
Te paso el siguiente código que hace lo que pedís al abrir el archivo en cuestión (Ojo que cierra los archivos sin guardar los cambios). Tenés que poner el código en el objeto ThisWorkbook
Private Sub Workbook_Open()
Dim w As Workbook
For Each w In Workbooks
If w.Name <> ThisWorkbook.Name Then
w.Close False
End If
Next w
Set w = Nothing
End Sub
Private Sub Workbook_Open()
Dim w As Workbook
For Each w In Workbooks
If w.Name <> ThisWorkbook.Name Then
w.Close False
End If
Next w
Set w = Nothing
End Sub