combobox doesn't show selected item with VBA project locked for viewing

[nardagus]

Hi Everyone,

I have a strange thing...

There is quite simple form with two fields:
- TextBox - this field does one thing: it shows value of selected cell
- ComboBox - this one on the other hand... When a form is initialized, excel connects to MSSQL and retrieves some data consisting of two fields: username, and username_id. Then the result is shown in CB. I use column.width to hide username_id.

For safety reasons VBA project is locked for viewing.

And for some reason locking VBA project causes problems with this CB.
When I reopen a file CB retrieves needed data (as you can see on a screenshot above). However when I click on a chosen item it doesn't show up in the field.
However. When I enter a password to unlock VBA project, CB works as intended.

Below you can see its properties:

I have no idea why this is happening...
Maybe you can help me...

Cheers

 

[nardagus]

*update*

Ok. I found the problem.
It seems that this piece of code:

Private Sub cb_handlowiec_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    With Me.cb_handlowiec
        .BackColor = RGB(255, 195, 0)
        .ShowDropButtonWhen = fmShowDropButtonWhenAlways
    End With
End Sub

caused such a behavior.
What I wanted to achieve is that when one hovers over an item (CB in this case) item background changes to orange. With user form mouse move event I changed item's background to white.
Commenting out above code fixed the problem.
However two questions remain:

1) Why combo box was working after I entered password to unlock VBA Project. I also noticed that when I remove VBA project password and reopen a file problem remains, but when I change anything in the code, CB works as it should
2) How to make this code work. I'd like to use cb_handlowiec_MouseMove event.

 

[nardagus]

*update2*

Ok. I added a condition to above code. I'm checking if ShowDropButtonWhen = fmShowDropButtonWhenAlways. And it seems to solve the problem.

Private Sub cb_handlowiec_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    With Me.cb_handlowiec
        If .ShowDropButtonWhen <> fmShowDropButtonWhenAlways Then
            .BackColor = RGB(255, 195, 0)
            .ShowDropButtonWhen = fmShowDropButtonWhenAlways
        End If
    End With
End Sub

Still it doesn't answer first question from last post, but it works now.