Ошибка в макросе

[runik]

Добрый день!Помогите разобраться _есть файл(акт) :при запуске и при вводе № вагона(8 цифр) в столбец G то вылазит ошибка (1004), а если нажать кнопку "выделить" а потом "очистить" то работает нормально. Где ошибка в макросе?Как прописать чтоб при запуске файла и вводе № не было этой ошибки?
пароль на лист -38304
Сильно не пинайте если макросы неправильные

[Step_UA]

Доброго.
Перед изменением защищенной ячейки (даты) удаляйте защиту листа, а после обратно устанавливайте.

[kuklp]

В макрос qq добавьте параметр userinterfaceonly:

Sub qq()
 ActiveSheet.Unprotect Password:="38304"
    Intersect([F:H], [A:A].SpecialCells(xlCellTypeConstants, xlNumbers).EntireRow).Select
    ActiveSheet.Protect Password:="38304", DrawingObjects:=True, Contents:=True, Scenarios:=True, _
    userinterfaceonly:=True

И выполните его хоть один раз. Все.

[kartol]

Сообщение от kuklp

В макрос qq добавьте параметр userinterfaceonly:

Sub qq()
 ActiveSheet.Unprotect Password:="38304"
    Intersect([F:H], [A:A].SpecialCells(xlCellTypeConstants, xlNumbers).EntireRow).Select
    ActiveSheet.Protect Password:="38304", DrawingObjects:=True, Contents:=True, Scenarios:=True, _
    userinterfaceonly:=True

И выполните его хоть один раз. Все.

макрос и так работает (без userinterfaceonly)если его выполнить .Человеку нужно чтоб при запуске файла продолжать вводить данные , а не очищать его (очищается как понятно из записи в нём 1,11,21) а в остальные дни данные должны оставаться и вводятся новые.А при запуске файла и при вводе номеров выскакивает ошибка в этом месте( .Value = IIf(IsDate(.Value), .Value, Now). Может я и не прав

[Step_UA]

... ошибка возникает т.к. вы пытаетесь изменить значение защищенной ячейки. Можно снимать и затем устанавливать защиту листа или как указал kuklp единожды (например при открытии книги) установить защиту с параметром userinterfaceonly:=True, который указывает на то, что ячейки защищенны только от изменения пользователем - макросу разрешается их изменение.

[runik]

Спасибо всем!