Помогите сделать форму

[komar73]

Помогите пожалуйста создать форму только добавления данных в таблицу EXCEL, допустим в столбце A и B.

[EducatedFool]

Телепаты в отпуске...
Пример файла + подробное описание задания.

С такой формулировкой задания Вам никто не поможет.

[komar73]

Я дико извиняюсь здесь пример

[EducatedFool]

Так подойдёт?



Пароль на защиту листа - 123

Перед записью данных на лист пароль снимается, а после устанавливается вновь.
Для облегчения выбора даты предусмотрена специальная кнопка на форме.

Для запуска формы ввода нажмите на зелёную кнопочку.

Вот весь код:

Const Пароль = "123"

Private Sub B_Дата1_Change_Click()
    Me.Date1 = Get_Date(Me.Date1, DateSerial(1980, 1, 1))
End Sub

Private Sub CommandButton1_Click()
    If Me.FIO = "" Then MsgBox "Не введена фамилия", vbCritical, "Ошибка": Exit Sub
    If Me.Date1 = "" Then MsgBox "Не введена дата рождения", vbCritical, "Ошибка": Exit Sub
    Dim cell As Range: Set cell = [a65000].End(xlUp).Offset(1)

    ActiveSheet.Unprotect Пароль    ' снимаем защиту
    cell = cell.Row - 1: cell.Next = Me.FIO: cell.Next.Next = Me.Date1
    ActiveSheet.Protect Пароль    ' снова ставим защиту
End Sub

Private Sub CommandButton2_Click()
    Unload Me
End Sub

Пример во вложении:

[komar73]

Огромное спасибо это то что мне нужно