Private Sub CommandButton1_Click()

If ComboBox1.Value = Sheets("оператори").Cells(ComboBox1.ListIndex+1, 2) And TextBox2.Text = Sheets("оператори").Cells(ComboBox1.ListIndex+1, 1) Then
UserForm2.Hide
Else
MsgBox "Грешна парола!", vbCritical, "Грешна парола!": Exit Sub
End If

End Sub

и пак казвам - това при условие, че комбото е попълнено последователно (потребителя на първия ред е първи в списъка на комбото, потребителя на втория ред - втори в списъка и т.н.)..

Съдържаниет е скрито
Влезте за да го видите