Здравствуйте, уважаемые специалисты! Решаю задачу и выходит проблема. Есть лист "Должности" со столбцами Код и Наименование и лист "Сотрудники" со столбцами Таб №, Фамилия, Должность . Сделал форму для добавления сотрудников. Должности выбираю через Combobox, для которого RowSource=Должности!B3:B8 - столбец должностей к примеру. Должности добавляю тоже через форму таким макросом:
_{Private Sub CommandButton1_Click()
Dim LastRow As Integer
LastRow = Sheets("Должности").UsedRange.Row + Sheets("Должности").UsedRange.Rows.Count - 1
Sheets("Должности").Cells(LastRow + 1, 1) = Sheets("Должности").Cells(LastRow, 1) + 1
Sheets("Должности").Cells(LastRow + 1, 2) = TextBox1.Text
End Sub}
Далее хотел сделать так, чтобы при добавлении новой должности, она приписывалась в Combobox:
_{AddEditSotrudnik.ComboBox1.AddItem TextBox1.Value}
Вылетает ошибка с кодом 70: Run-time 70: Permission denied Не пойму как решить проблему. Помогите пожалуйста