|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
04.12.2008, 12:16 | #11 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
понятно... повиснет. он не висит, он считает, у 2007 офиса размер листа 1 048 576 строк и 16 384 столбца, умножим две эти цифры столько ячеек. У вас уже были примеры, как обрабатывать не все ячейки листа а только те, что нужны...
удачи
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
04.12.2008, 12:22 | #12 |
Регистрация: 03.12.2008
Сообщений: 7
|
Я пытался таким образом сделать, но лочит в итоге абсолютно все:
Sub ProtectYellow() Dim cell As Range For Each cell In ActiveSheet.UsedRange.Cells If cell.Interior.ColorIndex = 6 Then cell.Locked = True: Exit Sub End If If cell.Interior.ColorIndex = 3 Then cell.Locked = True: Exit Sub End If Next ActiveSheet.Protect UserInterfaceOnly:=True, Password:="456" End Sub --- EducatedFool, к сожалению, с Вашим вариантом та же проблема происходит - лок на все ячейки идет :\ |
04.12.2008, 13:19 | #13 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
может предварительно защиту с листа снять?
и Sub ProtectYellow надо переименовывать - уже не только желтые защищаются. Плохо когда название процедуры не соответствует выполняемой задаче.
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
04.12.2008, 13:20 | #14 | |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Цитата:
Проверял несколько раз - блокируются только ячейки выбранных цветов. Если Вы берете пустой лист, и красите на нём пару ячеек, то макрос обработает лишь малую часть листа (так как основная часть ячеек находится в неиспользуемой области. Если же на листе есть данные, в области данных блокируются только те ячейки, цвет которых прописан в макросе. Вот еще раз пример макроса: Создайте новую книгу Excel, и запустите сначала макрос PaintCells, а потом ЗащититьЦветныеЯчейки Ну и проверяйте. Заблокированы только ячейки 4-х выбранных цветов (с цифрами от 4 до 7) Код:
|
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Добрый день и снова вопрос по защите) | Wasily | Microsoft Office Excel | 17 | 18.06.2008 10:26 |
Excel max 256 строк VS user надо 300 строк | Exo | Microsoft Office Excel | 3 | 10.01.2008 17:14 |
HELP!Си - программа для работы со строками + сумма строк в матрице! | DUPLET | Помощь студентам | 1 | 20.12.2007 21:16 |
подписать столбцы в компоненте StringGrid и убрать поля для надписи строк? | фЁдОр | Помощь студентам | 35 | 12.09.2007 14:13 |
Совмещение строк по ячейкам в Excel | asfa | Microsoft Office Excel | 6 | 16.03.2007 01:13 |