Bloquear la escritura en un combobox
Tengo una ventana de diálogo en la que tengo un combobox del que se despliega una lista de 4 valores que le he introducido. Funciona bien, pero además de elegir entre las 4 entradas que le he puesto, te deja escribir. Quiero bloquear esta opción. Quiero obligar a que en esa lista sólo se pueda poner uno de los 4 datos que yo he decidido.
Este es el código que he hecho
Rem AÑADIR AL COMBOBOX LOS DATOS DE UN CONJUNTO DE CELDAS
Rem Aciones a realizar al abrir el formulario
Private Sub UserForm_Activate()
Rem seleccionar la hoja Listados
Sheets("listados").Select
Rem Seleccionamos la celda
Range("h2").Select
Rem si la celda activa es diferente de vacía seguir
Do While ActiveCell <> Empty
Rem añadir al combobox la celda activa
ComboBox1.AddItem ActiveCell
Rem bajar una celda
ActiveCell.Offset(1, 0).Select
Loop
Sheets("contactos").Select
End Sub
Este es el código que he hecho
Rem AÑADIR AL COMBOBOX LOS DATOS DE UN CONJUNTO DE CELDAS
Rem Aciones a realizar al abrir el formulario
Private Sub UserForm_Activate()
Rem seleccionar la hoja Listados
Sheets("listados").Select
Rem Seleccionamos la celda
Range("h2").Select
Rem si la celda activa es diferente de vacía seguir
Do While ActiveCell <> Empty
Rem añadir al combobox la celda activa
ComboBox1.AddItem ActiveCell
Rem bajar una celda
ActiveCell.Offset(1, 0).Select
Loop
Sheets("contactos").Select
End Sub
1 respuesta
Respuesta de Juan Carlos González Chavarría
1