Работа макроса фильтрации ячеек в защищенном листе

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Работа макроса фильтрации ячеек в защищенном листе (Макросы/Sub)

Iliz

Дата: Пятница, 15.11.2019, 16:34 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Всем привет!
Нашел в интернете макрос, который автоматически скрывает пустые строки в заданном столбце
[vba]

Код

Private Sub Worksheet_Calculate()
  On Error GoTo 1
  Application.EnableEvents = False
  Range("$F$2:$F$733").AutoFilter Field:=1, Criteria1:="<>", _
        Operator:=xlAnd
1 Application.EnableEvents = True
End Sub

[/vba]

Помогите, пожалуйста, его видоизменить, чтобы он также работал в защищенном листе.

Сообщение отредактировал Iliz - Пятница, 15.11.2019, 16:34

Ответить

RAN

Дата: Пятница, 15.11.2019, 17:12 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Лучшее средство от головной боли, это гильотина?
Может использовать менее радикальное средство, и, устанавливая защиту листа, просто разрешить пользоваться фильтром?

Быть или не быть, вот в чем загвоздка!

Ответить

Iliz

Дата: Пятница, 15.11.2019, 17:22 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Да, я думал об этом. Но каждый раз сбрасывать и по новой отфильтровывать пустые ячейки не комильфо)

Ответить

RAN

Дата: Пятница, 15.11.2019, 17:26 | Сообщение № 4

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

?????????
Это вы с кем, и об чем?

Быть или не быть, вот в чем загвоздка!

Ответить

Iliz

Дата: Суббота, 16.11.2019, 13:33 | Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

С Вами! А с кем еще?
Говорю, что каждый раз пользоваться фильтром крайне не удобно, хотелось бы автоматизировать этот процесс.

Ответить

Iliz

Дата: Суббота, 16.11.2019, 14:12 | Сообщение № 6

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Нашел решение. Необходимо добавить в макрос следующий код:
[vba]

Код

ActiveSheet.Protect Password:="1111", UserInterfaceOnly:=True

[/vba]
Или код макроса целиком:
[vba]

Код

Private Sub Worksheet_Calculate()
  On Error GoTo 1
  Application.EnableEvents = False
  ActiveSheet.Protect Password:="1111", UserInterfaceOnly:=True
  Range("$C$9:$C$226").AutoFilter Field:=1, Criteria1:="<>", _
        Operator:=xlAnd
1 Application.EnableEvents = True
End Sub

[/vba]

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Работа макроса фильтрации ячеек в защищенном листе (Макросы/Sub)

Страница 1 из 1
1