заполнять список

[vostok]

Я доработал свой код, воспользовавшись Вашим,получилось так:

'

'
Range("B2").Select
ActiveSheet.Unprotect
[b2:i2].Copy
Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
[b2,f2,i2].ClearContents
Range("B2").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("F2").Select
Selection.ClearContents
Range("I2").Select
Selection.ClearContents
Range("B2").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

вроде работает, на том огромное спасибо!
Почему этот гребаный макрос защищает ячейки разрешая их выделять? Мне надо, чтобы курсор мог находится только в трех упомянутых ячейках, а не скакать по всему листу?
Не эти параметры отвечают за такую защиту? DrawingObjects:=True, Contents:=True, Scenarios:=True

[VictorM]

Я доработал свой код, воспользовавшись Вашим,получилось так

не буду описывать всей Вашей "доработки", только замечу, что вот это
Range("B2").Select
Selection.ClearContents
Range("F2").Select
Selection.ClearContents
Range("I2").Select
Selection.ClearContents
полностью заменяется строкой
[b2,f2,i2].ClearContents

[vostok]

Я же не программист, как могли заметить, я пишу макрос последовательностью действий, такой код и получается. Вы мне ответьте по макросу, почему он так делает?

[VictorM]

А что именно он делает не так?
Вот это ( на кнопку)

Sub Внести()
    ActiveSheet.Unprotect
    [b2:i2].Copy
    Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
    [b2,f2,i2].ClearContents
    ActiveSheet.Protect
    Application.CutCopyMode = False
End Sub

или это (на событие Change яч. I2)

Private Sub Worksheet_Change(ByVal Target As Range)
    ActiveSheet.Unprotect
    If Target.Address = "$I$2" Then
        [b2:i2].Copy
        Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
        [b2,f2,i2].ClearContents
        Application.CutCopyMode = False
    End If
    ActiveSheet.Protect
End Sub

полностью выполняют поставленную Вами задачу.
до начала работы макроса доступны для редактирования только 3 указанные Вами ячейки
Или я чего-то недосмотрел?

[VictorM]

Посмотрите вот это и скажите - что не так.

[vostok]

все правильно, доступны лишь 3 ячейки для редактирования, но другие не должны ВЫДЕЛЯТЬСЯ ВООБЩЕ! Т.е. после ввода в первую ячейку и нажатия "интер" должна выделится ячейка F, потом ячейка I,и опять переход в первую. Я когда вручную лист защищаю, то убираю птичку "выделять заблокированные ячейки". Все, курсор больше нигде не летает. Макрос же, когда защищает лист, упорно ставит эту птичку, даже такое наблюдаю: макрос отработал, все хорошо, выделяются только 3 ячейки. Сохраняю-закрываю-открываю - опять все ячейки выделяются, только вписывать в них не разрешается, то, что у Вас на видео.

[VictorM]

Ок, кажется понял ))
Смотрите файл

[vostok]

то же самое, после ввода все путем, доступны лишь три ячейки, а после Сохраняю-закрываю-открываю опять ВСЕ ячейки выделяются. У вас как? Может, у меня ексель так глючит, не?

[VictorM]

А вот теперь не знаю.
У меня все отлично работат хоть закрывай, хоть открывай.
Пробовал уже по всякому.
А вы в этом файле пробуете или в другом, рабочем?

[vostok]

Рабочего еще нет, в разработке, но пробовал и свой, и который от Вас пришел - одинаково, 2003 ексель.
Может, отдельную кнопочку для начала работы поставить, которая бы правильно его защитила на рабочий день.