Новости:

Теперь на форум можно залогиниться / зарегистрироваться с помощью ВКонтакте. Уже существующие пользователи могут связать свою учетную запись с аккаунтом ВКонтакте одним кликом в профиле пользователя http://forum.msexcel.ru/index.php?action=profile;area=account

Главное меню

Помогите с авто-фильтром

Автор sdwig, 22.01.2012, 20:10

« назад - далее »

sdwig

Добрый день.

Прошу помощи с _автофильтр_ом.
Есть макрос, часть его, касающаюся _автофильтр_а, отказывается работать на заблокированном листе:

ActiveSheet.Range("$A$3:$BI$150").AutoFilter Field:=i, Criteria1:= _
       "=бучение", Operator:=xlAnd    
       
Как видно - это фильтр по заданному тексту. Всё работает, но только если лист на заблокирован. Если запретить изменение листа с разрешением использовать _автофильтр_, то макрос на этом месте выдаёт ошибку...
Подскажите, как можно реализовать подобное на заблокированном листе (естественно _автофильтр_ на листе включается до блокировки листа).                  

Wasilic

Цитата: sdwig от 22.01.2012, 20:10
Есть макрос, часть его, касающаюся _автофильтр_а, отказывается работать на заблокированном листе:
Заблокирован, это включена защита?
Так отключите защиту, перед выполнением этой строки макроса, а потом включите.

ActiveSheet.Unprotect
ActiveSheet.Range("$A$3:$BI$150").AutoFilter Field:=i, Criteria1:= _
        "=бучение", Operator:=xlAnd           
ActiveSheet.Protect

Если с паролем то
   ActiveSheet.Unprotect Password:="пароль"
   ActiveSheet.Protect Password:="пароль"
Может и я на что сгожусь ... Если сгодился, можете меня по+благодарить+.

sdwig

Большое спасибо) Об этом я как-то и не подумал, действительно логично.

_Boroda_

Или, когда защищаете лист, поставьте галку в разрешениях в пункте "Использование автофильтра". Тогда им можно будет пользоватся на защищенном листе
Скажи мне, кудесник, любимец ба'гов...



Яндекс-деньги: 41001632713405
Webmoney: R289877159277; Z102172301748; E177867141995