Здравствуйте, есть форма в которой находится n переключателей (ToogleButton), все они имеют название TB1, TB2,...TBn (но, конечно хотелось бы что бы имена были разные, так сказать определяющие суть переключателя.).
Что необходимо: При активации (переключении) определенного кол-ва переключателей (1, 2, 3, ... n) сделать переключение Enabled из позиции True в позицию False (для невозможности их активации), и соответственно при деактивации переключателей, всё в обратном порядке.

Из найденого на форуме применение нашли 2 варианта:

1)

Скрытый текст
Код Sub TB1_Click() If TB2 = True Then TB1 = False If TB3 = True Then TB1 = False If TB4 = True Then TB1 = False End Sub

Из того, что не устраивает - это написание множественных проверок и строк в каждой кнопке. Хорошо если их 4, а если 15?

2)

Скрытый текст
Код Private Sub CheckBox2_Click() For x = 1 To 4 Select Case x Case 3, 4 ActiveSheet.OLEObjects("CheckBox" & x).Enabled = CheckBox2 + 1 End Select Next End Sub Private Sub CheckBox3_Click() For x = 1 To 4 If x <> 3 Then ActiveSheet.OLEObjects("CheckBox" & x).Visible = CheckBox3 + 1 Next End Sub

Из того, что тут не устраивает это скорее непониманимание того, как вместо одной функции запустить проверку по нескольким.
За ранее спасибо.