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

[segail]

Здравствуйте.
Можно ли создать условие, и как, для файлов Excel

Private Sub CommandButton1_Click()
    If a = 1 And b = 1 Then a = 2
End Sub

a = 1 ' Если файл a.xls открыт
b = 1 ' И открыт b.xls
a = 2 ' То закрыть файл a.xls

[doober]

Private Sub CommandButton1_Click()
Dim wb As Workbook
On Error Resume Next
Set wb = Application.Workbooks("11.xls")
If wb Is Nothing Then
a = 0
Err.Clear
Else
a = 1
End If

Set wb = Application.Workbooks("12.xls")
If wb Is Nothing Then
b = 0
Err.Clear
Else
b = 1
End If
If a = 1 And b = 1 Then Workbooks("11.xls").Close



End Sub

[segail]

А если по отношению к открытому файлу 12.xlc могут быть еще 4 файла (13,14,15,16)
Они не могут быть открыты одновременно по отношению к файлу 12, они могут только быть в паре с файлом 12. Как их внедрить в данный код?
Создавать код для каждого файла?

[segail]

Такой вариант может быть?

Private Sub CommandButton1_Click()
    Dim wb As Workbook
    On Error Resume Next
    Set wb = Application.Workbooks("11.xls")
    Set wb = Application.Workbooks("13.xls")
    Set wb = Application.Workbooks("14.xls")
    Set wb = Application.Workbooks("15.xls")
    Set wb = Application.Workbooks("16.xls")
        If wb Is Nothing Then
            a = 0
            Err.Clear
        Else
            a = 1
        End If

        Set wb = Application.Workbooks("12.xls")
            If wb Is Nothing Then
                b = 0
                Err.Clear
            Else
                b = 1
            End If
                If a = 1 And b = 1 Then Workbooks("11.xls").Close
                If a = 1 And b = 1 Then Workbooks("13.xls").Close
                If a = 1 And b = 1 Then Workbooks("14.xls").Close
                If a = 1 And b = 1 Then Workbooks("15.xls").Close
                If a = 1 And b = 1 Then Workbooks("16.xls").Close
End Sub

[doober]

Конечно,либо как я предложил для каждой книги.
Или путем опять же перебора открытых книг на сравнение с нужным именем

[doober]

Не правильно,только так

    Set wb1 = Application.Workbooks("11.xls")
    Set wb 2= Application.Workbooks("13.xls")
    Set wb3 = Application.Workbooks("14.xls")
    Set wb4 = Application.Workbooks("15.xls")
    Set wb 5= Application.Workbooks("16.xls")

[doober]

Сколько предполагается закрывать книг,можно упростить если знать более конкретно

[segail]

11,13,14,15,16
Как я уже говорил... Они не могут быть открыты одновременно по отношению к файлу 12, они могут только быть в паре с файлом 12.

Не в тему:
Если для объекта ComboBox просто действие клик по объекту, или DblClick является самым альтернативным кликом? По полю объекта идет двойной клик, а по стрелке можно совершить один клик, почему тогда Dbl ?

[doober]

При чем здесь альтернатива.
На разные события вы вешаете разные свои процедуры.
При клике надо сделать это.
При двойном-то то
А при Стрелочке что то еще

[segail]

Объект своеобразный не могу привыкнуть.

Значит при выборе значения, и выполнения какого ли ба кода

Private Sub ComboBox1_Change()
'...
End Sub

изначально ,будет выполняться код события

Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) 'Стрелочка
'...
End Sub