собственно задача в заголовке, сейчас реализовано так что защищается весь лист паролем и соответственно нельзя наложить фильтры или изменять ширину колонок.
http://paste1c.ru/Lrk   собственно вот макрос, причем закрывается не весь лист, а определенный диапазон ячеек остается доступным для редактирования(выбор из списка).
как получить тот же результат, только с возможностью фильтров и изменения ширины колонок?

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
        AllowUsingPivotTables:=True

добавь вот это в начале

Cells.Select
Selection.Locked = False
Selection.FormulaHidden = False

////////////////////////////////////////



    Range("E6:I22").Select  '  а вот тут область которая у тебя должна защищаться
    Selection.Locked = True
    Selection.FormulaHidden = True

/////////////////////////////////////////

и дальше замени на

ActiveSheet.Protect Password:="********", DrawingObjects:=True, Contents:=True, Scenarios:= _
        False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
        AllowUsingPivotTables:=True

о круто спасибо, чуть позже попробую)

(2) 1 пост мимо? все во втором?

Если я правильно понял то:
ТекстМакроса = "Sub ProtectSheet()
        |Cells.Select
        |Selection.Locked = False
        |Selection.FormulaHidden = False
        |    Range(""Y1:Y2"").Select
        |ActiveWorkbook.Names.Add Name:=""AnswersOptions"", RefersToR1C1:= _
        |    ""=Лист1!R1C25:R2C25""
        |Range(""Y"+НачСтрока+":Y"+КонСтрока+""").Select
        |Selection.Locked = True
        |Selection.FormulaHidden = True
        |ActiveSheet.Protect Password:=""ОбороноСпособность"", DrawingObjects:=True, Contents:=True, Scenarios:= _
        |False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        |AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        |:=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        |AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
        |AllowUsingPivotTables:=True
        |End Sub";

и не работает, защита стоит на листе, но ячейки все полностью доступны

ап, неразобрался(

не*

в экселе работает обратный способ - закрывается весь лист, а часть ячеек разрешается на редактирование(офис 2013)

(7) ты вот это опустил.

сделай вручную на своем файле и проверь работу

****************************************************************

добавь вот это в начале

Cells.Select
Selection.Locked = False
Selection.FormulaHidden = False

////////////////////////////////////////




    Range("E6:I22").Select  '  а вот тут область которая у тебя должна защищаться
    Selection.Locked = True
    Selection.FormulaHidden = True

/////////////////////////////////////////

(9) я вроде добавил, первые три строки как есть....чет  не соображу пока что....