Форум пользователей 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 |
Все разобрался. Это же свойство, а не метод! |
Автор: | 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/ |