Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Очистка незащищенных ячеек макрос
 
#1
13.03.2020 22:14:15
Добрый вечер,

Подскажите, пожалуйста макрос для автоматической очистки незащищенных ячеек в книге и/или листе при защищенном листе/книге.
 
 
 
#2
13.03.2020 23:25:40
Вариант для защищенного листа (ячейка "A1" должна что-то содержать)
Код
Sub Макрос1()
On Error Resume Next
With Sheets("Лист1")
a = .UsedRange.Rows.Count
b = .UsedRange.Columns.Count
For i = 1 To a
For j = 1 To b
.Cells(i, j).ClearContents
Next j
Next i
End With
End Sub
Удивление есть начало познания © Surprise me!
И да пребудет с нами сила ВПР.
 
 
 
#3
14.03.2020 11:42:42
Цитата
denkal написал:
макрос для автоматической очистки
denkal, уточните момент про автоматизацию: по какому событию должна сработать автоматика?
 
 
 
#4
14.03.2020 11:57:32
Юрий М,выполнить макрос
 
 
 
#5
14.03.2020 12:06:56
Код
Sub qq()
    For Each cl In ActiveSheet.UsedRange
        If cl.Locked = False Then cl.ClearContents
    Next
End Sub
 
 
 
#6
14.03.2020 12:09:22
denkal, автоматически - это когда макрос САМ  запустится по наступлению какого-нибудь события. Бытовой пример: у Вас есть электрочайник, Вы его можете выключить вручную, или чайник АВТОМАТИЧЕСКИ выключится, когда температура воды достигнет заданного значения-
В Вашем же случае ручной запуск макроса - где тут автоматика?
 
 
 
#7
14.03.2020 12:23:06
Юрий М, применил, идет "вычисление потоков" надпись внизу, файл висит.
 
 
 
#8
14.03.2020 14:09:37
Прежде чем запускать макрос, нужно оценить объемы работы. Если, например, открыть новую книгу и заполнить только первую и последнюю ячейки листа, то макрос из #5 будет выполняться много часов.
Владимир
 
 
 
Страницы: 1
Наверх