listbox

[reddcannon]

I have a list box, all works fine, but after I select the item in the box I want, it will not let me tab out. I would like for it to tab to the next unprotected cell which is B11, but it will not let me tab out of it, I can move the mouse and get out, but not tab

 

[VoG]

Maybe show the form as modeless

Userform1.Show vbModeless

 

[reddcannon]

I am sorry to be so stupid, where do I put that, BElow is what I have already when I hit ALT + F11 or doe I put it somewhere in the list box


Private Sub CommandButton1_Click()
On Error Resume Next
Range("a4:q3366").Value = vbNullString
On Error GoTo 0
End Sub

Private Sub CommandButton2_Click()
Dim searchthis As String, Found As Range
Me.Unprotect Password:="123"
searchthis = InputBox("Type Number.", "Property Search")
searchthis = searchthis & "*"
Set Found = Range("A:A,c:c").Find(What:=searchthis, LookIn:=xlFormulas, LookAt:=xlWhole)
If Not Found Is Nothing Then Found.Select
Me.Protect Password:="123"
End Sub
Private Sub CommandButton3_Click()
Me.Unprotect Password:="123"
Application.Goto Range("a7"), True
Me.Protect Password:="123"
End Sub

 

[Kenneth Hobson]

When talking about controls, say what type it is. It was assumed that it was a listbox control on a userform by VoG.

Your posted code had nothing to do with listbox controls.

For an ActiveX Listbox control, press the Esc key to escape back to cell before the control was clicked.

Rather than doing all of that protecting and unprotecting, doubleclick ThisWorkbook object in the Project Explorer of the VBE and paste this for just Sheet1:

Private Sub Workbook_Open()
  Sheet1.Protect "123", UserInterfaceOnly = True
End Sub

You can run the code to test if you don't want to close and open the workbook. Of course you can use this method for any other or all sheets.