Макрос фильтра на защищенном листе

[Сергей3528]

Допустим есть некая таблица, созданная в EXCEL 2007 . Есть необходимость ОБЯЗАТЕЛЬНО МАКРОСОМ включить выборку ФИЛЬТРОМ значений = 1 в левом столбце при ЗАЩИЩЕННОМ ЛИСТЕ (пароль здесь 25). Если это делать без макроса, то это без проблем, но созданный макрос не работает, сразу выплывает запрет. Можно конечно в макрос включить команду СНЯТЬ ЗАЩИТУ, а потом поставить вновь тем же макросом, но мне это совсем не подходит. Может можно как то поправить макрос, чтобы работал?
Сергей3528

[VictorM]

Как защитить рабочий лист, но сохранить возможность работы с автофильтром ?

Worksheets(1).EnableAutoFilter = True
Worksheets(1).Protect UserInterfaceOnly:=True

[VictorM]

В Вашем примере, ставьте защиту макросом, например, при открытии рабочей книги

Sub Защита()
    Worksheets(1).Protect UserInterfaceOnly:=True, Password:="25"
    Worksheets(1).EnableAutoFilter = True
End Sub

Теперь автофильтр работает - проверено!)

[Сергей3528]

Спасибо VictorM, только при использовании такой команды Excel требует введения пароля, а это к сожалению невозможно, наверное я неточно сформулировал задачу.

[Сергей3528]

Нельзя мне пароль выписывать в макросе, вот какое дело.

[Сергей3528]

Я лапоть VictorM, всё получилось, 1000 благодарностей.

[VictorM]

Ну вот и ладушки))

[Сергей3528]

Ох, зря я обрадовался, после сохранения документа макрос перестаёт работать. Не знаю, что и придумать.

[VictorM]

Вот уж не знаю, что у Вас там ...
Смотрите вложение, все работает

[Сергей3528]

В этом случае действительно всё будет работать, но в макросе не должно быть пароля, пароль на листе постоянный и не меняется, такое вот условие, если решение будет найдено, оплата сразу и соразмерно успеху.