Скрытие или Блокировка выбора в ComboBox'e

[kikim]

Здравствуйте Уважаемые Форумчане! Не знаю как сделать так, чтобы при выборе в комбобоке "Предмета сертификации" - СЭА, исчезал или не давал возможность выбора атрибута в комбобоксах "DО" и "ARP". Файл-пример прикреплен.

[pashulka]

Код: Выделить всё

Private Sub PredmetSert_Change()
    If UCase(PredmetSert.Value) = "СЭА" Then
       swdo.Enabled = False 'swdo.Visible = False
       sysARP.Enabled = False 'sysARP.Visible = False
    Else
       swdo.Enabled = True 'swdo.Visible = True
       sysARP.Enabled = True 'sysARP.Visible = True
    End If
End Sub

или

Код: Выделить всё

Private Sub PredmetSert_Change()
    Dim iFlag As Boolean
    iFlag = UCase(PredmetSert.Value) <> "СЭА"

    swdo.Enabled = iFlag 'swdo.Visible = iFlag
    sysARP.Enabled = iFlag 'sysARP.Visible = iFlag
End Sub

[kikim]

Спасибо большущее!!