Да точно така е попълнен комбобокса, както и в шийта, тъкато комбото взима данните чрез този код :

Private Sub UserForm_Activate()
Dim i As Integer
Dim z As Integer
'Дефиниране на променлива за брояча
Dim Row As Long
'Установяване на брояча на първия ред от данните
Row = 1
'Изчистване на стари данни в комбо-бокса
UserForm2.ComboBox1.Clear
'Стартиране на цикъл, който се повтаря, докато има
'данни в реда, на който е установен брояча
Do While Worksheets("оператори").Range("B" & Row) <> ""
'Прехвърляне на данните от таблицата в комбо-бокса

UserForm2.ComboBox1.AddItem (Worksheets("оператори").Range("B" & Row))

'Увеличаване на брояча с 1-ца
Row = Row + 1
Loop

End Sub


Поставям този код за да видиш от каде взимам данните за комбото
А иначе за кода ами все същото пак така ми изписва грешна парола ...незная защо така