コンボボックス　キー入力を不許可にする

コンボボックスの値集合ソース以外を選択できないとともに、直接入力をできないようにする。（Enter等のみ可能にする）

Private Sub cboデータ_KeyDown(KeyCode As Integer, Shift As Integer)
‘コンボボックスのキークリック時

  If KeyCode <> vbKeyReturn And KeyCode <> vbKeyTab And KeyCode <> vbKeyEscape Then
    ‘キー入力を無効にする(Enter/Tab/Esc以外)
    KeyCode = 0
  End If