условие для файлов Excel

[doober]

Private Sub Comman()
    Dim wb As Workbook
    
    Dim fl(1 To 5)
    fl(1) = "11.xls"
    fl(2) = "13.xls"
    fl(3) = "14.xls"
    fl(4) = "15.xls"
    fl(5) = "16.xls"
    On Error Resume Next
    
    
    For n = 1 To 5
      Set wb = Application.Workbooks(fl(n))
      If wb Is Nothing Then
            a = 0
            Err.Clear
        Else
            a = n
            Exit For
            
        End If
    
    Next
    
     Set wb = Application.Workbooks("12.xls")
            If wb Is Nothing Then
                b = 0
                Err.Clear
            Else
                b = 1
            End If
    
        If a <> 0 And b = 1 Then Workbooks(fl(a)).Close
               
End Sub

[segail]

В продолжение темы:

Есть некий код файла "a", который открывает файл "b" и "Форму3", данного файла.

Private Sub CommandButton3_Click() 'Код который находится в файле "а"
    '...
    Workbooks.Open Filename:="C:\Program Files\b2\b1\b.xls" 'Открытие файл "b"
    Application.Run "b.xls!UserForm_Show" 'Открытие "Формы3" файла "b"
    '...
End Sub

Public Sub UserForm_Show() 'Код Module2 файла "b"
    UserForm3.Show
End Sub

После выполнение кода, открыты два файла "a" и "b".
В файле "b" тоже есть некий код, который закрывает файл "a".

Private Sub ComboBox_Marka_DropButtonClick() 'Код, который находится в файле "b".
    Dim wb As Workbook
    On Error Resume Next
    Set wb = Application.Workbooks("a.xls")
        If wb Is Nothing Then
            a = 0
            Err.Clear
        Else
            a = 1
        End If

    Set wb = Application.Workbooks("b.xls")
        If wb Is Nothing Then
            b = 0
            Err.Clear
        Else
            b = 1
        End If
        If a = 1 And b = 1 Then Workbooks("a.xls").Close 'Закрывает файл "a"
End Sub

Проблема в том, что при закрытии файла "a" закрывается "Форма3" файла "b".
Можно ли решить эту проблему?

[doober]

Я думаю ,это логично.кто вызвал открытие формы,то при ликвидации его и форма закроется.Создайте надстройку,и с нее управляйте всеми машинами и пешеходами во всех книгах при помощи жезла

[segail]

Сообщение от doober

при помощи жезла

Дополнительный файл что ли?

[doober]

вы в эту надстройку можете вложить весь свой проект

[segail]

Сообщение от doober

вы в эту надстройку можете вложить весь свой проект

Если говорить образно, то я использую файл “b” как жезл.
А какая может быть еще надстройка?