Не сохраняется свойство EnableSelection, что делать?

[AHTOXA]

ActiveSheet.Protect Password:="123", UserInterfaceOnly:=True
ActiveSheet.EnableSelection = xlUnlockedCells

После сохранения и отрытия заново документа, свойство
ActiveSheet.EnableSelection выставляется в значение xlNoRestrictions.
Как сделать, чтобы сохранялось предыдущее введенное значение???

[GSerg]

Ставить его в workbook_open...

[AHTOXA]

Отличное решение
А если мне это свойство нужно сохранять только для определенных страниц, а для других не надо?
Почему если вручную выставить данное свойство (через Сервис->Защита) оно сохраняется, а так нет?
Неужели нет никакого другого способа?

[Belkin]

Народ!
Тоже столкнулся с такой же проблемой.
Может кто-то подскажет как ее решить и можно ли вообще??? Или это глюк Excel???
Я в одной книге пишу макрос который в итоге защищает другИЕ книги. Соответственно в тех книгах не должно быть макросов.
А если делать защиту ручками (ТАК РАБОТАЕТ и после сохранения и закрытия), то это проблематично, и файлов ни один..., да там марос еще ряд действий с ячейками делает.

HELP ME!!!

Заранее благодарен.

[KL]

1) Насколько мне известно (и тесты это подтверждают), в англ. версиях Excel 2002(XP) и 2003 значение .EnableSelection прекрасно сохраняется. Однако в версиях более ранних (Excel 2000 и ранее), по дизайну, оно не сохранялось и, соответственно, лист, защищенный таким образом в Excel 2003, в Excel 2000 или 97 откроется незащищенным.

Вот код, который я использовал (единственное, что не сохраняется, так это параметр UserInterfaceOnly, но это по дизайну):

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

Sub test()
    Dim wb As Workbook
    Set wb = Workbooks.Add
    With wb
        With .Worksheets(1)
            .Protect Password:="123", UserInterfaceOnly:=True
            .EnableSelection = xlUnlockedCells
        End With
        .SaveAs "C:\Users\User1\Desktop\test.xls"
        .Close
    End With
End Sub

2) Если же проблема возникает в версиях Excel 2002+, то возможно надо искать причину где-то в самом коде макроса(ов). Возможно есть процедура, отменяющая нужную установку, или возникает другая ошибка.

3) Если исключены пункты 1) и 2), то возможно нужно установить все обновления для Excel, т.к. баги особенно распространены в локализованных версиях.

[Belkin]

KL
У меня Excel 2003 и твой код также как и мой отрабатывает нормально, но после закрытия книги и повторном ее открытии защищенные ячейки снова можно выделять.
Вобщем засада.
Что подскажите?

[KL]

KL
У меня Excel 2003 и твой код также как и мой отрабатывает нормально, но после закрытия книги и повторном ее открытии защищенные ячейки снова можно выделять.
Вобщем засада.
Что подскажите?

Как насчет языка локали и обновлений?

[Belkin]

KL
Что ты имеешь ввиду?
Предлагаешь патч на Excel?
Если да, то где его взять?

[Belkin]

Решил вопрос, путем установки Пакет обновления Office 2003 Service Pack 3 (SP3) с микрософтовского сайта.
Спасибо тем кто помогал.