Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Очистка содержимого незащищенных ячеек
 
#1
04.11.2016 14:03:45
Добрый день,
подскажите , пожалуйста, есть ли такая возможность.
Есть лист ексель , который защищен паролем
на листе есть защищенные ячейки и не защищенные ячейки .
Так вот, вопрос в следующем:
Есть ли возможность как то с помощью VBA очистить ВСЕ незащищеные ячейки на листе , а защищенные чтобы остались неизменными ?
50 times helped - they forgot, 1 time refused - they memorized
 
 
 
#2
04.11.2016 14:05:37
Макросом. Перебор ячеек диапазона в цикле с проверкой на защищаемая/не защищаемая с очисткой соответсвующих
Согласие есть продукт при полном непротивлении сторон
 
 
 
#3
04.11.2016 14:11:16
пробовал вот так
Код
Sub tt()
Dim rng As Range: Set rng = [A1:H13]
Dim cell As Range
For Each cell In rng.Cells
If Not cell.Locked Then
ActiveCells.ClearContent
End If
Next
End Sub

но не очищает .
50 times helped - they forgot, 1 time refused - they memorized
 
 
 
#4
04.11.2016 14:14:05
YouRock, код следует оформлять соответствующим тегом - ведь видели, как он выглядит у других?
Ищите такую кнопку и исправьте своё сообщение.
По вопросу: зачем в коде ActiveCell?
 
 
 
#5
04.11.2016 14:16:16
Код
If Not cell.Locked Then
Cell.ClearContent
 
 
 
#6
04.11.2016 14:16:19
Извините, давно не был на форуме, забыл! исправлюсь
Цитата
Юрий М написал:
По вопросу: зачем в коде ActiveCell?
натолкните,пожалуйста, на правильное решение.
50 times helped - they forgot, 1 time refused - they memorized
 
 
 
#7
04.11.2016 14:16:47
Толчок в #5 ))
 
 
 
#8
04.11.2016 14:17:26
Код
Sub NoLockedClear()
Dim cl As Range
With ActiveSheet
    For Each cl In .UsedRange.Cells
        If Not cl.Locked Then cl.ClearContents
    Nex
End With
End Sub
Согласие есть продукт при полном непротивлении сторон
 
 
 
#9
04.11.2016 14:17:42
Цитата
Юрий М написал: Толчок в #5 ))
пробовал я вместо ActiveCells ставить Cell , так же история, не очищает  
50 times helped - they forgot, 1 time refused - they memorized
 
 
 
#10
04.11.2016 14:18:27
Чем докажете?
 
 
 
#11
04.11.2016 14:21:22
когда ставлю Cell пишет что cell не поддерживает ClearContent.
50 times helped - they forgot, 1 time refused - they memorized
 
 
 
#12
04.11.2016 14:24:58
Мой код видели (#8)? В Вашем файле он сработал как нужно
Изменено: Sanja - 04.11.2016 14:27:19
Согласие есть продукт при полном непротивлении сторон
 
 
 
#13
04.11.2016 14:26:45
Код
Sub tt()
Dim rng As Range: Set rng = [A1:H13]
Dim cell As Range
    For Each cell In rng.Cells
        If Not cell.Locked Then
            cell.ClearContents
        End If
    Next
End Sub
ClearContents  ;)
 
 
 
#14
04.11.2016 14:27:13
Цитата
Sanja написал:
Мой код видели (#? В Вашем файле он сработал как нужно
извиняюсь, не увидел ,работает как надо! большое спасибо!
50 times helped - they forgot, 1 time refused - they memorized
 
 
 
#15
04.11.2016 14:28:37
Ваш код тоже сработает, если добавить красную буковку ))
 
 
 
#16
04.11.2016 14:28:57
Цитата
Юрий М написал: ClearContents  ;)
Цитата
Юрий М написал: #5
If Not cell.Locked Then
Cell.ClearContent
;)
Согласие есть продукт при полном непротивлении сторон
 
 
 
#17
04.11.2016 14:30:11
Да - просто скопировал исходный текст - акцент был на активную ячейку, а туда и не глянул )
 
 
 
#18
04.11.2016 14:36:02
А если есть такая константа - незащищённая ячейка, то можно обойтись и без цикла: применить к диапазону )
 
 
 
#19
20.10.2019 11:01:24

Вариант в разы быстрее и проще, особенно при большом диапазоне ячеек

Код
Sub cl()
Dim rng As Range: Set rng = [I8:DD108]
On Error Resume Next
Application.ScreenUpdating = False
rng.Value = ""
Application.ScreenUpdating = True
End Sub

Изменено: Артём Кремлёв - 20.10.2019 11:02:12
 
 
 
#20
20.10.2019 11:08:19
... и особенно  быстро отработает, когда в указанном диапазоне есть хоть одна защишенная ячейка :)

Артём Кремлёв, Ваш код не очищает ячейки, но записывает текст нулевой длины. В темной комнате не видно черной кошки, но она там есть :)
 
 
 
#21
20.10.2019 11:28:18
vikttur, Ну тут можно много тролить
Application.ScreenUpdating = False /True -существенное ускорение для того что между ними.
По вопросам из тем форума, личку не читаю.
 
 
 
#22
20.01.2020 17:25:01
Добрый день!
Требуется очистить ячейки в произвольном диапазоне (а то и во всём листе) по признаку цвета текста, цифр в ячейке.
Цикл работает, ячейки не чистятся, ошибка при  Cell.ClearContents.
Вот что сообразил и вспомнил:
Код
Public Function SBC(DataRange As Range, ColorSample As Range) As Double
Dim Sum As Double
Application.Volatile True
For Each Cell In DataRange
    If Cell.Font.Color = ColorSample.Font.Color Then
'       Cell.ClearContents
        Sum = Sum + 1
    End If
Next Cell
SBC = Sum
End Function


Элементарно прошу помочь в элементарном. Сто лет здесь не был.
Спасибо.
Изменено: march - 20.01.2020 17:28:54
 
 
 
#23
20.01.2020 17:27:21
Создайте отдельную тему с названием, отражающим суть задачи. Прикрепленный небольшой пример ускоряет помощь.
 
 
 
#24
19.08.2023 21:31:36
Неужели у Excel'а нет возможности без макроса очистить одним махом только незащищенные ячейки, пропуская защищенные?
Пробовал это проделать в "softmaker office 2010", в "LibreOffice 3", в "Spread32" - они  тоже это не могут.
Тогда я проделал это же на SC4, SC5 - это табличные процессоры (аналоги Excel'а) под DOS. По работе пришлось с ними познакомиться. В других не пробовал.
Результат Вас удивит - они могут это делать, т.е. очищают одним махом таблицу с незащищенными ячейками, пропуская защищенные. И без макросов.
Я все время проверял каждую новую версию Excel'а, начиная с Office 97, в надежде на то, что когда-нибудь появится такая возможность. Но, наверное, не дождусь... Печально, но эта возможность очень удобная в работе..
Изменено: Roiko - 19.08.2023 22:01:12
 
 
 
#25
20.08.2023 15:09:22
Цитата
Roiko написал:
Я все время проверял каждую новую версию Excel'а, начиная с Office 97
Вместо 25-летнего ожидания попросили бы разработчика расширить этот диалог.  :D
Владимир
 
 
 
#26
20.08.2023 19:30:20
Цитата
написал:
попросили бы разработчика расширить  этот  диалог
Можно так, как Вы предложили, т.е. "...в Москву через Владивосток...".
Но проще "Ctrl+A", затем "Del".
 
 
 
Страницы: 1
Наверх