Макрос не отрабатывает копирование при общем доступе к книге

[Chelentano]

Господа, очень уповаю на помощь в таком вопросе:

Я создал макрос для вставки строки в таблицу с копированием в новую строку ячеек из предыдущей строки. Среди этих ячеек есть ячейки с выпадающими списками. В макросе для копирования я прописал стандартно:

ActiveCell.EntireRow.Insert
Range(Cells(ActiveCell.Row-1, 1), Cells(ActiveCell.Row-1,10)).Copy
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row,10)).Select
ActiveSheet.Paste

Макрос работает без проблем, если книга не в общем доступе. Но если установить в Сервис>Доступ к книге... на вкладке Правка галку "Разрешать нескольким пользователям изменять данный файл одновременно" , значения ячеек с выпадающиими списками копируются, но не копируются по ним выпадающие списки!!!

Буду очень благодарен за любую подсказку!

[EducatedFool]

Какой-то макрос у Вас излишне сложный...

Попробуйте такой вариант - вдруг сработает:

Sub test()
    ActiveCell.EntireRow.Insert
    ActiveCell.EntireRow.Cells(1).Resize(2, 10).Offset(-1).FillDown
End Sub

[The_Prist]

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

[Chelentano]

Господа, спасибо большое за ответы!!! (спасибо Присту хоть и за неутешительный но ответ, который внёс определённость в мою жизнь и в мои отношения с юзерами моего гениального макроса! - теперь однозначно буду знать, что такой трюк в VBA никак не реализовать - буду искать окольные пути!)

Спасибо большое за новую конструкцию (мне как новичку конечно очень интересно с ней разобраться!) Но в любом случае макрос и в этом случае спотыкается: Run-time Error 1004. Application-defined or object-defined error. Причем кнопка Debug при этом неактивна, по кнопке Help ничего не открывается - остаётся только нажать End

Как я понял тут остается только одно: подавать на Билла Гейтса иск на $1млн в Европейский суд за моральный ущерб?

[EducatedFool]

Но в любом случае макрос и в этом случае спотыкается: Run-time Error 1004. Application-defined or object-defined error.

Странно. У меня всё работает.

Попробуйте такой вариант:



Выделите одну из синих ячеек, и нажмите зелёную кнопку.

[Chelentano]

Ой да! Перепроверил ещё раз! Извините! Действительно работает Ваш код! Спасибо огоромнейшее!!!! Как я понимаю фишка тут в том, что FillDown более дееспособное лицо по сравнению с Copy-Paste и при использовании файла в общем доступе лучше по возможности стараться заменять Copy>Paste на FillDown там где мы хотим копировать не только значения но и проверки?

[Chelentano]

Извините, тут у меня в связи с этим такой вопрос: мне также в определённых местах необходимо копировать ячейки не из предыдущей строки, а из пред-предыдущей строки, т.е. из ActiveCell.Row-2 ? Вы не подскажете, какой здесь правильный синтаксис для копирования, чтобы это работало во время общего доступа?