Вопрос по автофильтру

[goddan]

Здравствуйте. Есть проблема. В экселе фильтрую данные

Код: Выделить всё

Worksheets("Прайс").Range("B5").AutoFilter _
    Field:=2, _
    Criteria1:=ComboBox1.Value & "*"

Все работает, но если включаю защиту листа (галочки использовать автофильтр поставлены) появляется ошибка
run-time error 1004
нельзя использовать данную команду на защищенном листе....

Что я делаю неправильно?
Спасибо.

[alex_gearbox]

Лист защищать программно.
Смотрите параметры метода Protect. А именно UserInterfaceOnly и AllowFiltering.

[goddan]

Код: Выделить всё

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowSorting:=True, AllowFiltering:=True

я собственно так пробывал

[Pavel55]

Код: Выделить всё

ActiveSheet.Protect UserInterfaceOnly:=True

[goddan]

Лист защищать программно.
Смотрите параметры метода Protect. А именно UserInterfaceOnly и AllowFiltering.

ActiveSheet.Protect UserInterfaceOnly:=True

Спасибо, все работает отлично!!!