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

Форум по вопросам применения и программирования в Visio
Текущее время: 18 окт 2017, 11:14

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


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


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



Начать новую тему Ответить на тему  [ Сообщений: 3 ] 
Автор Сообщение
 Заголовок сообщения: Метод .Protection
СообщениеДобавлено: 18 окт 2016, 09:22 
Не в сети
Ветеран

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

Добавить очки репутацииУменьшить очки репутации
Ни разу этим не пользовался, а тут понадобилось. Так что, этот метод не работает? Или только у меня так (Visio Профессионал 2010)?
Код:
' На все варианты выдает ошибки
ThisDocument.Protection (visProtectShapes)
ThisDocument.Protection ("12345")
ThisDocument.Protection ()
ThisDocument.Protection


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Метод .Protection
СообщениеДобавлено: 18 окт 2016, 09:27 
Не в сети
Ветеран

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

Добавить очки репутацииУменьшить очки репутации
Все разобрался. Это же свойство, а не метод! :oops:


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Метод .Protection
СообщениеДобавлено: 18 окт 2016, 09:45 
Не в сети
Ветеран

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

Добавить очки репутацииУменьшить очки репутации
Ну, чтобы тема не была бессмысленной добавлю код. Пригодится для новичков.
Код:
Option Explicit

Sub ProtectionShapes() ' Защита от выделения определенных шейпов в активном документе
Dim oSel As Visio.Selection, sh As Visio.Shape
Set oSel = ActiveWindow.Selection

For Each sh In oSel
    sh.Cells("LockSelect").FormulaU = 1
Next

ThisDocument.Protection() = visProtectShapes

End Sub

Sub ProtectionShapesNon() ' Снять все защиты в активном документе
    ThisDocument.Protection() = visProtectNone
End Sub


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

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



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

Сейчас этот форум просматривают: Yandex [bot] и гости: 1


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

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