Някой може ли да ми каже къде греша, тъй като при стартиране на кода ми дава грешна парола.
Ето го кода:
Private Sub CommandButton1_Click()
If ComboBox1.Value = Sheets("оператори").Cells(ComboBox1.ListIndex+1, 1) And TextBox2.Text = Sheets("оператори").Cells(ComboBox1.ListIndex+1, 2) Then
UserForm2.Hide
Else
MsgBox "Грешна парола!", vbCritical, "Грешна парола!": Exit Sub
End If
End Sub
Благодаря !!!