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