Защита листа

[staniiislav]

Доброго времени суток, Ув. форумчане.
Есть небольшой вопрос:

Я использую код, для защиты листа:

 Private Sub Workbook_Open()
 
Const MyPassword = ""
Dim i%
For i = 1 To ThisWorkbook.Sheets.Count
With Sheets(i)
'.Unprotect Password:=MyPassword
        .Protect Password:=MyPassword, DrawingObjects:=True, Contents:=True, Scenarios:=True, _
            AllowFiltering:=True, UserInterfaceOnly:=True ', AllowFormattingCells:=True
            .EnableOutlining = True
  End With
Next
End Sub

В это код мне нужно добавить "изменение объектов". Макро редактор, не записал данную функцию. Если кто знает, подскажите пожалуйста.
И если у кого-то завалялись записи обозначения защиты листа (какая функция, за что отвечает), напишите плиз.
Спасибо!

[doober]

DrawingObjects:=True

а это тогда что?

[staniiislav]

Посмотрите пример.
В таблице при включенной защите листа в таблице "2", не получаться растянуть ячейки. Если выключаю защиту, а затем включаю заново но в ручную ставлю галочку "изменение объекта", все начинает работать, хотя в в книге DrawingObjects:=True. Что не так работает?

[kuklp]

Причем объекты до ячеек... Сделайте так:

        .Protect Password:="", Contents:=True, Scenarios:=True, _
           AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowFiltering:=True, UserInterfaceOnly:=True ', AllowFormattingCells:=True
            .EnableOutlining = True

[staniiislav]

Сообщение от kuklp

Причем объекты до ячеек... Сделайте так:

        .Protect Password:="", Contents:=True, Scenarios:=True, _
           AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowFiltering:=True, UserInterfaceOnly:=True ', AllowFormattingCells:=True
            .EnableOutlining = True

Если бы я знал в чем причина, я бы не задавал глупых вопросов. Посмотрите пример пожалуйста, я изменил свой код на ваш. Ячейку "D9", я так же растянуть не могу. А мне нужно при защите листая растягивать определенные не защищенные ячейки.
НО когда я снимаю защиту вручную и ставлю ее заново вручную, но ставлю галочку на "изменение объекта", все чудесно начинает работать!
Почему вручную когда делаешь эту операцию все работает, а макросом нет?

[staniiislav]

нашел решение свой задачи.
Нужно было добавить

            '.EnableSelection = xlNoRestrictions 'При использовании этой команды пользователю доступны
                                                 'все ячейки при перемещении по листу, но ввести данные
                                                 'он может только в незащищенные ячейки.
            .EnableSelection = xlUnlockedCells   'При использовании этой команды пользователю
                                                 'недоступны защищенные ячейки не только при вводе данных,
                                                 'но и при перемещении по листу.

Но к сожалению, растягивает защищенные ячейки на незащищенные...
Это можно как не будь подправить?

[kuklp]

Я выражение растянуть ячейку, понимаю как изменить ее размеры по высоте или ширине. А Вы что имеете ввиду?

[staniiislav]

1. Я понял почему не "растягивались" значения (нужно было увеличить высоту строк, т.к. значек выбора из списка мешал сделать выделение для "растягивания" ячеек (продолжение данных)
2. В правом-нижнем углу ячейки (при наведения мышью), появляется крестик, за который можно потянуть и значения ячейки продолжаться.
Короче я туплю малеха ((((