Sn.mahircinar
örneğinizi inceleyemedim ancak fikir vermesi açısından eklediğim kodu denemenizi isterim.
örneğinize uyarlayıp geri bildirimde bulunmayı unutmayın.

Private Sub Açılan_Kutu1_AfterUpdate()

Select Case Açılan_Kutu1



Case "Yok" 'Eğer Açılan_Kutu1 in değeri YOK ise 'Açılan_Kutu2 yi flue yap

Açılan_Kutu2.Enabled = False



Case "Var" 'Eğer Açılan_Kutu1 in değeri VAR ise 'Açılan_Kutu2 yi normal yap



Açılan_Kutu2.Enabled = True

End Select

End Sub