Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Microsoft Office и VBA > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 05.12.2018, 19:40   #1
Damir R
Новичок
 
Регистрация: 05.12.2018
Сообщений: 2
Репутация: 10
По умолчанию Проблема с фильтром

Добрый день, есть файл защищенным листом с возможностью группировки, все работает кроме фильтра. Как включить еще и фильтр работал?
код:
Sub ProtectShWithOutline()
ActiveSheet.EnableOutlining = True
ActiveSheet.Protect Contents:=True, Scenarios:=True, UserinterfaceOnly:=True
End Sub
Damir R вне форума   Ответить с цитированием
Старый 07.12.2018, 09:41   #2
SAS888
Профессионал
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,153
Репутация: 1063
По умолчанию

Код:

Sub ProtectShWithOutline()
    ActiveSheet.EnableOutlining = True
    ActiveSheet.Protect Contents:=True, Scenarios:=True, AllowFiltering:=True, UserinterfaceOnly:=True
End Sub

Если автофильтр установлен, то после выполнения этого макроса он будет работать на защищенном листе.
__________________
Чем шире угол зрения, тем он тупее.
SAS888 вне форума   Ответить с цитированием
Старый 12.12.2018, 13:27   #3
Damir R
Новичок
 
Регистрация: 05.12.2018
Сообщений: 2
Репутация: 10
По умолчанию

Большое спасибо, все работает четко!
Damir R вне форума   Ответить с цитированием
Ответ

Опции темы

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

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ADODataset - проблема с фильтром DaysOfGrace Помощь студентам 0 04.06.2012 20:58
Проблема с расширенным фильтром Наталья0207 Microsoft Office Excel 3 17.10.2011 22:21
Проблема с фильтром nervniy БД в Delphi 4 19.08.2010 06:36
Проблема с фильтром в ADOTable son_of_koshi Помощь студентам 2 04.08.2010 14:21


05:10.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru