Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

14 Декабрь 2018, 13:16 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Вы можете задать вопрос по LibreOffice или Apache OpenOffice  без регистрации, используя форму
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: 1   Вниз
  Печать  
Автор Тема: Очистка незащищенных ячеек  (Прочитано 616 раз)
0 Пользователей и 1 Гость смотрят эту тему.
rami
Гуру
*******
Offline Offline

Пол: Мужской
Сообщений: 2 615


MacBook Pro, LibreOffice и Apache OpenOffice


« Ответ #43886: 8 Ноябрь 2017, 16:43 »

Появилась необходимость сделать очистку всех незащищенных ячеек на листе, без необходимости выделения диапазона.
Может кто уже встречал данный макрос?
Вот:
Код:
Sub Main
Dim oRanges, n
oRanges=ThisComponent.Sheets(0).getCellFormatRanges()
For Each n In oRanges
If Not n.CellProtection.IsLocked Then n.clearContents(7)  'сотрёт числа даты и строки во всех незащищённых ячейках
Next
End Sub
Записан

Страниц: 1   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2009, Simple Machines Valid XHTML 1.0! Valid CSS!