Макрос запрещающий редактирование текста в ячейке выделенной определенным цветом

Добрый вечер .
пожалуйста подскажите макрос который бы запрещал редактирование ячеек определенного цвета. Именно запретить Ввод данных в них.
В документе есть ряд ячеек имеющих красный цвет заливки
Нужно сделать так чтобы при условии если ячейка имеет заливку красного цвета ее редактирование становилось не возможным.
Реально ли такое сделать?

0

Сообщение от esboy21 Хотя первые пару раз как то получилось а потом перестало работать

Значит вы что-то нарушили. Формулу в том варианте не надо было вводить. Я целую неделю заполнял - никаких проблем не было.

Сообщение от esboy21 Можно ли сделать так чтобы привязать процесс добавления строк с новой датой к нажатию кнопки ? Чтобы при этом в ячейке с датой стояла формула (Предыдущая дата +1 )

Попробую.

0

Сообщение от esboy21 Чтобы при этом в ячейке с датой стояла формула

Забудьте про формулу. Всё делается макросом. И если что-то хотите поменять, то лучше сначала напишите, чтобы потом не говорить, что не работает. Держите. И не забудьте, что первую таблицу убирать нельзя, и что первая дата не должна быть выходным днем.

Вложения

Книга4.rar (16.5 Кб, 15 просмотров)

1

chumich, СПАСИБО , понял что формулы можно забыть и все делается в макросе . Спасибо протестировал Работает .
Но макрос при добавлении нового дня берет за основу первый день таблицы и получается что создает его полную копию.
Можно ли чтобы добавляемый день был полностью с чистыми ячейками без записей .
Ато если день оказывается выходным то записи сохраняются с первого дня в таблице и их просто не стереть

Еще возникла необходимость в потсчетах в ячейке S 4 на примере первого дня указал что нужно считать Брать наименование столбцов H1-Q1 и после каждого наименованиы выводить результат суммы за день из желтых ячеек итог за день H1-Q1
и чтобы эта ячейка так же создавалась при добавлении дня но первоначальлно с нулевыми значениями.

Кнопку копировать поставил на перспективу если получится сделать копирование ячейки S итогов за текущий день в буфер обмена.
Можно ли такое дополнить в макрос ? Не сильно ли я замудрил?)

Вложения

Книга4 23.07.rar (28.2 Кб, 8 просмотров)

0

Сообщение от esboy21 Можно ли чтобы добавляемый день был полностью с чистыми ячейками без записей .

Исправил (во вложении).

Сообщение от esboy21 Можно ли такое дополнить в макрос ?

Можно сделать практически всё, что угодно.

Вложения

Книга5.rar (25.5 Кб, 16 просмотров)

1

chumich, спасибо вы мастер в этом деле , чувствуется опыт и хорошее владение вопросом

А можно ли реализовать подсчет итогов и сбор информации в одной ячейке столбца S
о котором писал выше.
Чтобы и это поле копировалось при создании нового дня в таблице.
Не поможете ли с этим моментом разобраться ?

Вложения

Книга5_23.07.rar (24.4 Кб, 6 просмотров)

0

Сообщение от esboy21 А можно ли реализовать подсчет итогов и сбор информации в одной ячейке столбца S

Можно.

Сообщение от esboy21 Чтобы и это поле копировалось при создании нового дня в таблице.

Оно, наверно, должно не копироваться, а создаваться, потому что итоги же разные? Или я что-то не понял?

Добавлено через 9 минут

Сообщение от esboy21 одной ячейке столбца S

Ячейки объединять и делать размер и цвет как в образце?

Добавлено через 8 минут

Сообщение от esboy21 и чтобы эта ячейка так же создавалась при добавлении дня но первоначальлно с нулевыми значениями.

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

0

chumich, Ячейки нудно объединить и цвет заливки такой как в образце.
Было бы отлично .

Да все верно итоги каждый раз разные.
Но первоначально пока данные не введены значения нулевые. А когда если где в итогах дня появляются цифры то они отображаются и в итоговой ячейке столбца S .

Добавлено через 4 минуты

Сообщение от chumich Текст в ячейке располагать именно так как в образце или можно каждый результат сделать на новой строке?

текст в объединенной ячейке можно каждыйое наименование и его значение сделать с новой строки , а можно просто разделить ; как в примере

0

А в выходной день? Табличка с 0 значениями, или ее не должно быть?

0

Сообщение от chumich А в выходной день? Табличка с 0 значениями, или ее не должно быть?

Сделал по своему усмотрению, что не должно. Всё происходит по нажатию той же кнопки.

Вложения

Книга6.rar (20.6 Кб, 12 просмотров)

1

chumich, добрый день .
Протестировал все добавляется.
В выходные это поле не нужно все верно.
Но при заполнении таблицы числовыми значениями Значения в итоговой учитывающей ячейке остаются неизменными а должны ноли меняться на те значения которые вычеслены суммарно за день в желтых ячейках соответственно.

Я протестировал на рабочем компьютере работоспособность. Получается что ячейки с вычисляемыми итогами не нудно объединять. Иначе при копировании вставляется не верно. Ячейка ДОЛЖНА БЫТЬ ОДНА БЕЗ ОБЪЕДИНЕНИЯ.
И можно ли сделать так чтобы она не растягивала ячейку основной таблицы при вставке
.
3.При открытии документа сразу выводить форму с предупредительным сообщением типа «Ввод данных по замечаниям необходимо произвести с 8:00 до 15:00 текущего рабочего дня» Информационное Окно с кнопкой ОК при нажатии на которую форма закрывается.

4 Добавить кнопку «Открыть основной файл»

При нажатии чтобы открылся файл Excel расположенный по адресу:

\\Lpu-06-fs02\users\Мониторинг АПК 1,2 уровней\Форма мониторинга АПК 1-2 уровней.xlsm

5 Защитить ячейки с формулами желтого цвета , в которых суммируются данные за день от стирания.
6. При нажатии кнопки "Копировать" - копировать в буфер итоговые данные за последний добавленный в таблицу день.
7. Формат даты при добавлении новых ячеек в таблицу стал без отображения сокращенного дня недели.
В первой ячейке день недели отображается. и до этого в предыдущем варианте тоже отображался .

0

файл

Вложения

Книга6_24.07.rar (23.8 Кб, 8 просмотров)

0

Сообщение от esboy21 Но при заполнении таблицы числовыми значениями Значения в итоговой учитывающей ячейке остаются неизменными а должны ноли меняться на те значения которые вычеслены суммарно за день в желтых ячейках соответственно.

Это происходит при нажатии кнопки создания следующего дня.

Сообщение от esboy21 Получается что ячейки с вычисляемыми итогами не нудно объединять. Иначе при копировании вставляется не верно.

У меня вставляется верно.

Сообщение от esboy21 Ячейка ДОЛЖНА БЫТЬ ОДНА БЕЗ ОБЪЕДИНЕНИЯ. И можно ли сделать так чтобы она не растягивала ячейку основной таблицы при вставке

Если будет одна, то нельзя.

Сообщение от esboy21 7. Формат даты при добавлении новых ячеек в таблицу стал без отображения сокращенного дня недели. В первой ячейке день недели отображается. и до этого в предыдущем варианте тоже отображался .

При начале эксплуатации, выделите весь столбец А и выставьте через меню соответствующий формат даты. Он исчез из-за удаления строк при вашей проверке.

Сообщение от esboy21 3.При открытии документа сразу выводить форму с предупредительным сообщением типа «Ввод данных по замечаниям необходимо произвести с 8:00 до 15:00 текущего рабочего дня» Информационное Окно с кнопкой ОК при нажатии на которую форма закрывается. 4 Добавить кнопку «Открыть основной файл» При нажатии чтобы открылся файл Excel расположенный по адресу: \\Lpu-06-fs02\users\Мониторинг АПК 1,2 уровней\Форма мониторинга АПК 1-2 уровней.xlsm 5 Защитить ячейки с формулами желтого цвета , в которых суммируются данные за день от стирания. 6. При нажатии кнопки "Копировать" - копировать в буфер итоговые данные за последний добавленный в таблицу день.

Мне неинтересно этим заниматься, я и так посвятил вам слишком много времени

0

chumich, Спасибо Вам , действительно потратили на меня не мало времени
Проверил Еще раз данные меняются отлично . Работает . Остальные доработки которые пришли по ходу поытаюсь сделать сам

Добавлено через 6 часов 10 минут
chumich, Доработал кое какой функционал в файле.
Возник вопрос проконсультируйте пожалуйста . Что можно сделать с первым файлом без которого работать не будет ничего. Как бы можно его объединить с этим в один? Чтобы случайно на рабочей станции его не удалили или не переместили

0

0

Скажите, пожалуйста, как дополнить код: Данные не вводить, но можно их копировать

0