Impedir Backspace e Del em combobox?

Question

O código a seguir funciona, exceto para as teclas Backspace e Del.

Private Sub cmbCidade_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

KeyAscii = 0



End Sub

Como impedir as teclas del e backspace sem utilizar o estilo a seguir?

cmbCidade.Style = fmStyleDropDownList

Pois, a combobox precisa exibir o texto "Cidade"

Answer 1

Experimente monitorar KeyCode no evento KeyDown dessa caixa de combinação.

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br

Answer 2

Private Sub cmbCidade_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
KeyCode = vbKeyCancel

End Sub