Deaktivieren oder ausblenden von Optionen im Kombinationsfeld Excel VBA

Ich habe ein Kombinationsfeld in einem Excel-Userform aus der Benutzer-Gruppe-Typen.
Je nach user access level (Benutzer, würde ich mag, um etwas Option\item deaktivieren oder nicht sichtbar.
Ich nicht verwenden will, Removeitem, Da müsste ich wieder zu bevölkern, die Liste jedes mal!

sub ComboBox_Enter() 

accessLvl = 1

ComboBox.AddItem "0-Show"
ComboBox.AddItem "1-Hide or disable"
ComboBox.AddItem "2-Show"
ComboBox.AddItem "3-Show"

For i = 0 To 3
      if accessLvl = 1 Then ComboBox.List(1).Hidden = True ' This not does work!! ''
Next

End sub

Ich will einfach nur, dass es deaktiviert\Grau oder nicht sichtbar aber immer noch in der Combobox-Liste!*

Fall-back-position wäre ein 3rd party control von Telerik oder einem anderen Hersteller. Sie haben vielleicht so eine Sache, aber es kostet $$$.

InformationsquelleAutor Geovanni Petty | 2013-10-16

AFAIK, kann man nicht tun, aber es ist eine alternative. Der Benutzer wird nicht in der Lage sein, bestimmte Elemente auswählen (je nachdem, was Sie angeben), obwohl es sichtbar und nicht deaktiviert ist.

Für diese versuchen, diesen code

Dim boolC As Boolean

'~~> Add Sample data
Private Sub UserForm_Initialize()
    ComboBox1.AddItem "Please Choose Again"

    For i = 1 To 10
        ComboBox1.AddItem i
    Next i
End Sub

'~~> This will not let the user select items in 2nd
'~~> 3rd and 4th items
Private Sub ComboBox1_Change()
    If Not boolC Then
        boolC = True
        Select Case ComboBox1.ListIndex
            Case 1, 2, 3: ComboBox1.ListIndex = 0
        End Select
        boolC = False
    End If
End Sub

Screenshot

Angenommen, Ihr Formular sieht wie diese auf dem Formular zu starten.

Deaktivieren oder ausblenden von Optionen im Kombinationsfeld Excel VBA

Dem moment, in dem Sie wählen Sie die 2., 3. oder der 4. Punkt, erhalten Sie Please Choose Again