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

[VictorM]

в макросе не должно быть пароля,

Эх, знали бы Вы, как легко все эти пароли снимаются...
Если же Вам нужно скрыть код просто от "шаловливых ручек" рядового пользователя, закройте паролем проект, код VBA.
Он тоже ломается достаточно просто, но для обыкновенного пользователя вполне достаточно, и пароль на лист посмотреть просто так не смогут.

[EducatedFool]

но в макросе не должно быть пароля

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

[Сергей3528]

Я пытался это сделать, но знаний мало, не вышло, может покажете на примере? Что я для этого должен сделать кроме оплаты?

[EducatedFool]

Что я для этого должен сделать кроме оплаты?

Вы должны наконец-то воспользоваться поиском...

http://excelvba.ru/code/HiddenNames
http://excelvba.ru/code/CustomDocumentProperties

[Сергей3528]

Спасибо, я попробую в этом разобраться.

[Сергей3528]

А что, это действительно в Excel 2007 пароль в 250 символов легко снимается? Я ничего вскрывать сам не собираюсь, но этот вопрос для меня важен.

[doober]

А что, это действительно в Excel 2007 пароль в 250 символов легко снимается? Я ничего вскрывать сам не собираюсь, но этот вопрос для меня важен.

Все меряется временем(я не о пароле на VBA)
Как вариант

Sub Фильтр()
Application.ScreenUpdating = False
Set y = ActiveSheet.ListObjects("Таблица1").ListColumns(1).Range
Dim x As Range
For Each x In y
If x.Value <> 1 And Not x.Value Like "Столбец*" Then
Rows(x.Row).Hidden = True
End If
    Next x
    Application.ScreenUpdating = True
End Sub

Sub  Антифильтр()
Application.ScreenUpdating = False
Set y = ActiveSheet.ListObjects("Таблица1").ListColumns(1).Range
Dim x As Range
For Each x In y

Rows(x.Row).Hidden = False

    Next x
    Application.ScreenUpdating = True
    
End Sub

[EducatedFool]

действительно в Excel 2007 пароль в 250 символов легко снимается?

пароль на сам файл - не знаю,
а вот пароли на лист и книгу. а также пароль на VBA снимаются за секунду, какой бы длины они не были.
(либо при помощи программ типа AOPR, либо путем открытия вашего "сверхзащищённого" файла в OpenOffice, где при снятии защиты про пароль даже не спросят)

[Сергей3528]

Спасибо понял, что зря я пытаюсь что то защитить от взлома.

[Skarpion]

Добрый день, вас я нашёл на сайте КлубПрограмистов, с решением проблемы - Работа Автофильтра в Excel 2010 на защищённом листе. У меня проблема примерно та же что и у "Сергей3528", но в отличие от него, мне бы хотелось найти решение проблемы с автофильтром, не прибегая к макросу. То есть проблема заключается в том , что надо защитить формулы от изменения, но при этом всё остальное пространство должно быть доступно для изменения. Я создал таблицу, ввёл формулы и всё работало, пока человек пользовавшийся этой таблицей (по не внимательности) не удалил формулы. Мне пришлось защитить таблицу, но как потом выяснилось - перестала работать функция автофильтрации. Конечно можно снимать защиту, фильтровать и снова ставить защиту, но для безопасности и удобства (от удаления или изменения формул), этот способ не подходит. Поэтому нужна ваша помощь, для решения проблемы с автофильтрацией в защищённом режиме либо найти способ защиты формулы от удаления или изменения!!! Жду ответа!
P.S. Для примера пересылаю файл.