Страницы: 1
RSS
Защита фигуры от перемещения и удаления
 
Доброго времени суток, всем.

Может кто-нибудь подсказать как правильно защитить фигуру от перемещения и удаления?  
Иногда только промахнувшись, понимаешь как ты попал.
 
защитите лист
убьете много функционала в нем, зато защитите фигуру
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
Это самое простое решение.
А есть ли возможность защитить Shapes как объекты Chart, как в примере?
Код
Private Sub Workbook_Open()
Dim Wks As Worksheet
Dim ChtObj As ChartObject
   For Each Wks In ThisWorkbook.Worksheets
      For Each ChtObj In Wks.ChartObjects
         ChtObj.Chart.ProtectFormatting= True
      Next ChtObj 
   Next Wks 
End Sub
Иногда только промахнувшись, понимаешь как ты попал.
 
Всем спасибо.
Решение нашел.
Иногда только промахнувшись, понимаешь как ты попал.
Страницы: 1
Наверх