If e.Col.Name = "列名" Then
e.Cancel = True '不能手动输入
If e.Col.DroppedDown = False Then
e.Col.OpenDropDown() '打开下拉框
End If