Не срабатывает Защита Автофигуры

[valerij]

Установлена защита на Лист, все защищенные яч. защищены, а Автофигуры, не смотря на то, что стоит галка на защиту, не защищены?

[EducatedFool]

1) Снимаем защиту с листа (UnProtectAllSheets)
2) Заменяем в макросе ProtectAllSheets
строку sh.Protect Password:="12345", Contents:=True, Scenarios:=True, UserInterfaceOnly:=True
на строку sh.Protect Password:="12345"
3) Выделяем все автофигуры (удерживая клавишу Ctrl)
4) В контекстном меню выбираем пункт "Формат автофигуры"
5) На вкладке Защита ставим 2 галочки - Защищаемый объект, и Скрыть текст
6) Назначаем автофигурам макросы
7) Запускаем макрос ProtectAllSheets
(не забудь только убрать Contents:=True, Scenarios:=True, UserInterfaceOnly:=True)
8) Наслаждаемся результатом.

[IFRSoff]

А может быть у вас просто стоит галочка "Изменение объектов" в окне "Разрешить всем пользователям этого листа"? Проверьте. Я перезащитил лист. Добавил скрыть текст и все защитилось стандартными средствами.

[valerij]

Сейчас проверю все рекомендации, но, я сделал так, воспользовался рекодером, заменил в строке кода и поставил галки На вкладке Защита Скрыть текст:

sh.Protect Password:="12345", Contents:=True, Scenarios:=True, UserInterfaceOnly:=True

sh.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True

И все заработало

[valerij]

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

А может быть у вас просто стоит галочка "Изменение объектов" в окне "Разрешить всем пользователям этого листа"? Проверьте.

А где это, не найду!!!

[IFRSoff]

Это если обычным способом, вручную защищать лист. Сервис-защита-защитить лист и вот на этом этапе в этом окне это и есть. Т.е. тоже самое прописание критериев защиты, к которым относится и DrawingObjects:=True.

[valerij]

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

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

А -а, нет там галки, да если вручную, то и у меня получалось, но надо в макросе, все, уже ОК.