概要

こういうコンボボックスがある…

↓ こんなふううに、されないようにしたい。（規定の選択肢以外はダメよ）

やり方

まず前提として、コンボボックスには制御するプロパティが無い。

イベントで制御が必要。

Private Sub cmb_tester_KeyPress(KeyAscii As Integer)
    KeyAscii = 0
End Sub

『キー入力時』だけだと全角入力ができてしまう。
なので『キークリック時』でも制御が必要。

Private Sub cmb_tester_KeyDown(KeyCode As Integer, Shift As Integer)
    KeyCode = 0
End Sub

Windows 10 Pro 21H2 OSビルド 19045.2311
Microsoft Access for Microsoft 365 MSO (バージョン 2211 ビルド 16.0.15831.20098) 32 ビット