Excel - Botón Cerrar - desde el Menú cierre hipervínculos asociados al menú

[Hola

Intenta así:

Sub cerrartodo()
Dim nLibro As Workbook
Dim milibro As String
Let milibro = ThisWorkbook.Name
For Each nLibro In Workbooks
If nLibro.Name <> milibro Then
    nLibro.Close False
End If
Next nLibro
End Sub

Si quieres que se guarden antes de cerrar, solo cambia el "False" por "True" en la línea correspondiente.

Saludos]

Abraham Valencia

Abraham Gracias antes que nada .. !!!

estoy probando la sentencia informada.. y lo que hace es cerrar TODOS los Archivos excel  abiertos  en la computadora--> Mi necesidad es: solo cerrar los archivos excel asociados al Menú Principal( usando hipervínculos) y que cierre también el arhivo excel Principal = MENÚ. Gracias

el True no lo está tomando.

gracias

Ro

[Hola

Asumí que trabajabas solo con tu archivo principal y con los archivos de los hipervínculos. No hay una forma en que se detecte cuales son abiertos a través de hipervínculos y cuales no por lo que necesariamente tienes que tener el nombre de esos archivos ¿son muchos? ¿Tienes los nombres?

Abraham Valencia

SI SI CLARO:

El Menu SE LLAMA --->MENU DE ACCESO LOGROS 2018.xls  

Los Archivos asociados a éste Menú Son---->

Base-de-Datos_LOGROS_Escritorio

MAPA_TURNOS_2018-backup

Novedades_Cuaderno_2018 

Y por último una hoja del 1er. Archivo (Base-de-Datos_LOGROS_Escritorio.xlsx#CUD Control!A1)

[Hola

Solo reemplaza por los nombres exactos de tus archivos:

Sub cerrartodo()
Dim nLibro As Workbook
Dim Cadena As String, Miarray() As String
Dim x As Integer
Let Cadena = "Libro7,Libro8,Libro9,Libro 10"
Miarray() = Split(Cadena, ",")
For Each nLibro In Workbooks
    For x = LBound(Miarray) To UBound(Miarray)
        If nLibro.Name = Miarray(x) Then
            nLibro.Close False
            Exit For
        End If
    Next x
Next
End Sub

Saludos]

Abraham Valencia