Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Работа макроса фильтрации ячеек в защищенном листе - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир 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
 
Ответить
СообщениеВсем привет!
Нашел в интернете макрос, который автоматически скрывает пустые строки в заданном столбце
[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
Группа: Друзья
Ранг: Участник клуба
Сообщений: 5193
Репутация: 1045 ±
Замечаний: 0% ±

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


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

Автор - RAN
Дата добавления - 15.11.2019 в 17:12
Iliz Дата: Пятница, 15.11.2019, 17:22 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - Iliz
Дата добавления - 15.11.2019 в 17:22
RAN Дата: Пятница, 15.11.2019, 17:26 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 5193
Репутация: 1045 ±
Замечаний: 0% ±

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


Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение?????????
Это вы с кем, и об чем?

Автор - RAN
Дата добавления - 15.11.2019 в 17:26
Iliz Дата: Суббота, 16.11.2019, 13:33 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - Iliz
Дата добавления - 16.11.2019 в 13:33
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]
 
Ответить
СообщениеНашел решение. Необходимо добавить в макрос следующий код:
[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]

Автор - Iliz
Дата добавления - 16.11.2019 в 14:12
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Работа макроса фильтрации ячеек в защищенном листе (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!