|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
29.04.2014, 05:17 | #1 |
Пользователь
Регистрация: 17.04.2014
Сообщений: 22
|
Поставить защиту на диапазон строк
Поставить защиту на диапазон строк ниже последней заполненной строки
на открытие книги Заполнение проверяем по столбцу A на всех листах кроме листа "Итог" Private Sub Workbook_Open() Dim wsSh As Worksheet 'снимаем защиту листов For Each wsSh In Sheets wsSh.Unprotect "123 Dim j For Each i In ThisWorkbook.Sheets lLastRow = Cells(Rows.Count,1).End(xlUp).Row j = lLastRow If i.Name <> "Итог" Then i.Cells(2, 10000).Locked = False 'сначала снимаем возможные защищенные ячейки если попало что с 2 строки i.Cells(j, 10000).Locked = True 'устанавливаем защищенные ячейки с последней незаполненной строки до конца End If Next End Sub но почемуто не заработало .. |
29.04.2014, 10:29 | #2 | |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
Цитата:
Код:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
|
29.04.2014, 10:56 | #3 | |
Пользователь
Регистрация: 17.04.2014
Сообщений: 22
|
Цитата:
|
|
29.04.2014, 11:30 | #4 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
не срабатывает не потому, что строка добавилась, а потому что
количество For не соответствует количеству Next Код:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
29.04.2014, 11:40 | #5 |
Пользователь
Регистрация: 17.04.2014
Сообщений: 22
|
спасибо Igor что помогли но чтото не так
щас проверил - 1 строка блокируется на листах которые должны быть защищены а макрос должен работать в диапазоне начиная со 2 строки тк предварительно первую строку в защищенных листах заполнил по столбцу A - чето неправильно сделал в задании диапазона а вот что ? Последний раз редактировалось brik; 29.04.2014 в 12:00. |
29.04.2014, 21:02 | #6 | |
Пользователь
Регистрация: 17.04.2014
Сообщений: 22
|
вот так правильно - все голову изломал
Цитата:
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Step7 -> Настройки (как поставить защиту на настройки?) | as_sati | Безопасность, Шифрование | 10 | 14.12.2012 18:53 |
В книге защищен каждый лист. Как быстро снять защиту со всех листов, а потом ее поставить опять? | Катик7 | Microsoft Office Excel | 13 | 28.04.2011 16:02 |
Выделить диапазон строк | vefer | Microsoft Office Excel | 6 | 03.02.2011 13:10 |
Хочу поставить защиту от записи на USB flash | solis257 | Компьютерное железо | 2 | 19.01.2011 21:31 |
При создании нового листа программно поставить на него защиту (с помощью VBA) | Lis000iq | Microsoft Office Excel | 2 | 30.06.2009 18:41 |