VBA com senha?

030583 DESCULPEM

Experimente o código do Botão OK assim:

Private Sub Filtrando_Click()
Listgeral.ListItems.Clear
ultimaLinha = Plan1.Cells(Plan1.Cells.Rows.Count, "a").End(xlUp).Row
   
For x = 2 To ultimaLinha
    If Plan1.Cells(x, "C") = Cmbuf.Value Then
    Set li = Listgeral.ListItems.Add(Text:=Plan1.Cells(x, "a").Value)
        li.ListSubItems.Add Text:=Plan1.Cells(x, "b").Value
        li.ListSubItems.Add Text:=Plan1.Cells(x, "c").Value
        li.ListSubItems.Add Text:=Plan1.Cells(x, "d").Value
        li.ListSubItems.Add Text:=Plan1.Cells(x, "e").Value
    End If
Next
End Sub

Show de bola, tão simples eu complicando! vlw mestre