Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.10.2013, 20:30   #1
ergmEe
Новичок
Джуниор
 
Регистрация: 20.10.2013
Сообщений: 2
По умолчанию защита ячеек

здраствуйте.
подскажите пожалуйста, можно ли разрешить редактирование ячеек только определённого цвета?
а остальные запретить%
ergmEe вне форума Ответить с цитированием
Старый 20.10.2013, 20:36   #2
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Штатной функции для этого в Excel нет
Но можно вручную (или макросом) поставить защиту только на определённые ячейки
(выделите цветные ячейки, в свойствах ячейки снимите галочку «защищаемая ячейка», и потом поставьте защиту на лист)
EducatedFool вне форума Ответить с цитированием
Старый 21.10.2013, 13:21   #3
roborrr
Математик
Форумчанин
 
Регистрация: 27.02.2011
Сообщений: 123
По умолчанию

защита ячейки желтого цвета:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
a = Target.Cells.Row
b = Target.Cells.Row
With Selection.Interior

If .Color = 65535 Then Cells(a + 1, b).Select

End With
End Sub

Последний раз редактировалось roborrr; 21.10.2013 в 13:50.
roborrr вне форума Ответить с цитированием
Старый 21.10.2013, 15:20   #4
beazon
Новичок
Джуниор
 
Регистрация: 21.10.2013
Сообщений: 1
По умолчанию

Интересный вариант. Надо будет попробовать, у меня была похожая задача.
beazon вне форума Ответить с цитированием
Старый 21.10.2013, 20:18   #5
ergmEe
Новичок
Джуниор
 
Регистрация: 20.10.2013
Сообщений: 2
По умолчанию

спасибо всем за ответы.
Цитата:
Сообщение от roborrr Посмотреть сообщение
защита ячейки желтого цвета:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
a = Target.Cells.Row
b = Target.Cells.Row
With Selection.Interior

If .Color = 65535 Then Cells(a + 1, b).Select

End With
End Sub
я вопщем в экселе плохо ориентируюсь, это куда такое написать там?)
ergmEe вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сортировка + защита ячеек Евроснаб Microsoft Office Excel 15 05.12.2012 18:05
Защита ячеек в эксель.. Ubicum Microsoft Office Excel 8 26.10.2012 14:56
Защита ячеек Lyuda_! Microsoft Office Excel 3 17.11.2011 02:56
Защита ячеек Анна1703 Microsoft Office Excel 10 08.02.2010 10:32
Защита ячеек Levchik Microsoft Office Excel 1 02.02.2009 08:15