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

valerij · 15.03.2009, 04:07

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

EducatedFool · 15.03.2009, 09:36

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 · 15.03.2009, 11:45

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

valerij · 15.03.2009, 13:49

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

Код:

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

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

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

valerij · 15.03.2009, 15:38

Цитата:

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

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

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

IFRSoff · 15.03.2009, 16:25

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

valerij · 15.03.2009, 18:50

Цитата:

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

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

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

15.03.2009, 09:36	#2
EducatedFool Программист VBA СуперМодератор Регистрация: 13.07.2008 Сообщений: 6,856	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) Наслаждаемся результатом. __Полезные надстройки для Excel. Парсинг сайтов и файлов. Макросы любой сложности на заказ. Мониторинг цен конкурентов

15.03.2009, 11:45	#3
IFRSoff Форумчанин Регистрация: 23.02.2009 Сообщений: 306	А может быть у вас просто стоит галочка "Изменение объектов" в окне "Разрешить всем пользователям этого листа"? Проверьте. Я перезащитил лист. Добавил скрыть текст и все защитилось стандартными средствами. Лень - двигатель прогресса! Последний раз редактировалось IFRSoff; 15.03.2009 в 11:49.

15.03.2009, 13:49	#4
valerij Старожил Регистрация: 12.05.2007 Сообщений: 2,339	Сейчас проверю все рекомендации, но, я сделал так, воспользовался рекодером, заменил в строке кода и поставил галки На вкладке Защита Скрыть текст: Код: `sh.Protect Password:="12345", Contents:=True, Scenarios:=True, UserInterfaceOnly:=True sh.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True` И все заработало

15.03.2009, 16:25	#6
IFRSoff Форумчанин Регистрация: 23.02.2009 Сообщений: 306	Это если обычным способом, вручную защищать лист. Сервис-защита-защитить лист и вот на этом этапе в этом окне это и есть. Т.е. тоже самое прописание критериев защиты, к которым относится и DrawingObjects:=True. Лень - двигатель прогресса! Последний раз редактировалось IFRSoff; 15.03.2009 в 16:29.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Рекурсия - не срабатывает return	iankov	PHP	2	24.02.2009 16:31
Как сделать их видимыми автофигуры при печати???	181988	Microsoft Office Word	3	01.11.2008 23:01
Автофигуры	shmelvs	Microsoft Office Word	6	16.07.2008 17:18
Автофигуры	boks	Microsoft Office Excel	1	04.06.2008 10:10
PopUpMenu не срабатывает OnDrawItem	Comer_Jus	Общие вопросы Delphi	6	16.05.2008 21:48