Форум пользователей Visio

Форум по вопросам применения и программирования в Visio
Текущее время: 19 ноя 2018, 07:05

Часовой пояс: UTC + 3 часа [ Летнее время ]


Правила форума


При размещении файлов предпочтительным является формат vsd (а не vsdx/vsdm)



Начать новую тему Ответить на тему  [ Сообщений: 7 ] 
Автор Сообщение
 Заголовок сообщения: Общее снятие защиты
СообщениеДобавлено: 30 июл 2014, 14:13 
Не в сети

Зарегистрирован: 30 июл 2014, 13:57
Сообщений: 1
Использую Visio c: 2013
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
Просьба помочь начинающему. В схеме более 1000 фигур. Определенные фигуры имеют различные защиты (какие фигуры - не знаю). Пробовал выделять каждую фигуру и слой - запутался. Как выделить все фигуры и снять защиты оптом.
При попытке изменить размеры схемы постоянно пишет "! Не удается завершить выполнение этой команды из-за свойств защиты фигур, контейнера или слоя". Спасибо.


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Общее снятие защиты
СообщениеДобавлено: 30 июл 2014, 14:49 
Не в сети
Ветеран

Зарегистрирован: 21 окт 2011, 12:01
Сообщений: 897
Откуда: г. Екатеринбург
Использую Visio c: 2011
Очков репутации: 120

Добавить очки репутацииУменьшить очки репутации
1. можно выделить все фигуры, зайти в защиты поставить все галки. нажать ок. потом опять все выделить, защиты, снять все галки, ок.
2. могут быть вложенные в группы фигуры с защитой, которые все равно придется прощелкивать вручную. либо сначала все разгруппировать и см пункт 1.


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Общее снятие защиты
СообщениеДобавлено: 30 июл 2014, 15:12 
Не в сети
Ветеран

Зарегистрирован: 30 июл 2014, 14:28
Сообщений: 492
Использую Visio c: 2008
Очков репутации: 100

Добавить очки репутацииУменьшить очки репутации
9rey писал(а):
1. можно выделить все фигуры, зайти в защиты поставить все галки. нажать ок. потом опять все выделить, защиты, снять все галки, ок.
2. могут быть вложенные в группы фигуры с защитой, которые все равно придется прощелкивать вручную. либо сначала все разгруппировать и см пункт 1.


Таким образом не все блокировки будут сняты. Например эти останутся:

LockCuctProp
LockVtxEdit
LockCrop
LockGroup
LockCalcWH

Попробуйте так:

Код:
Sub UnLockShapes()

Dim winObj As Visio.Window, shpsObj As Visio.Shapes, shpObj As Visio.Shape, i As Byte

Set winObj = Application.ActiveWindow
Set shpsObj = winObj.Page.Shapes

winObj.SelectAll

For Each shpObj In shpsObj
    For i = 0 To 19
        shpObj.CellsSRC(visSectionObject, visRowLock, i).FormulaU = 0
    Next
Next

Set winObj = Nothing: Set shpsObj = Nothing: Set shpObj = Nothing
End Sub


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Общее снятие защиты
СообщениеДобавлено: 30 июл 2014, 16:04 
Не в сети
Ветеран

Зарегистрирован: 21 окт 2011, 12:01
Сообщений: 897
Откуда: г. Екатеринбург
Использую Visio c: 2011
Очков репутации: 120

Добавить очки репутацииУменьшить очки репутации
Shishok
я хотел предложить макрос, но тема то не программирование. автор может не знать, что это такое.
это конечно тоже вариант, но тут надо вводить рекурсию, иначе шейпы в группах не обработаются.


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Общее снятие защиты
СообщениеДобавлено: 30 июл 2014, 16:09 
Спасибо за помощь, товарищи. Получилось по первому совету.


Пожаловаться на это сообщение
Вернуться к началу
  
Ответить с цитатой  
 Заголовок сообщения: Re: Общее снятие защиты
СообщениеДобавлено: 30 июл 2014, 16:29 
Не в сети
Ветеран

Зарегистрирован: 30 июл 2014, 14:28
Сообщений: 492
Использую Visio c: 2008
Очков репутации: 100

Добавить очки репутацииУменьшить очки репутации
9rey писал(а):
Shishok
я хотел предложить макрос, но тема то не программирование. автор может не знать, что это такое.
это конечно тоже вариант, но тут надо вводить рекурсию, иначе шейпы в группах не обработаются.


Согласен.
Кстати, возможно удаление блокировок из шейпов входящих в группу, может нарушить работу этой группы. Кто знает что там за фигуры.


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Общее снятие защиты
СообщениеДобавлено: 29 авг 2018, 17:53 
Макрос помог, спасибо.


Пожаловаться на это сообщение
Вернуться к началу
  
Ответить с цитатой  
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 7 ] 

Часовой пояс: UTC + 3 часа [ Летнее время ]



Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1


Вы можете начинать темы
Вы можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
cron
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Вы можете создать форум бесплатно PHPBB3 на Getbb.Ru, Также возможно сделать готовый форум PHPBB2 на Mybb2.ru
Русская поддержка phpBB