Форум пользователей Visio
http://visio.getbb.ru/

Метод .Protection
http://visio.getbb.ru/viewtopic.php?f=6&t=1039
Страница 1 из 1

Автор:  Shishok [ 18 окт 2016, 09:22 ]
Заголовок сообщения:  Метод .Protection

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

Автор:  Shishok [ 18 окт 2016, 09:27 ]
Заголовок сообщения:  Re: Метод .Protection

Все разобрался. Это же свойство, а не метод! :oops:

Автор:  Shishok [ 18 окт 2016, 09:45 ]
Заголовок сообщения:  Re: Метод .Protection

Ну, чтобы тема не была бессмысленной добавлю код. Пригодится для новичков.
Код:
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

Страница 1 из 1 Часовой пояс: UTC + 3 часа [ Летнее время ]
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/