VBA/Excel/Access/Word/Excel/Chart Protect

Protect Chart

   <source lang="vb">

Sub ProtectChart()

   Dim myChart As Chart
   Set myChart = ThisWorkbook.Sheets("Protected Chart")
   myChart.Protect "Excel2003", True, True, , True
   myChart.ProtectData = False
   myChart.ProtectGoalSeek = True
   myChart.ProtectSelection = True
   Debug.Print myChart.ProtectContents
   Debug.Print myChart.ProtectDrawingObjects
   Debug.Print myChart.ProtectionMode
   Debug.Print myChart.ProtectData
   Debug.Print myChart.ProtectGoalSeek
   Debug.Print myChart.ProtectSelection

End Sub

</source>
   
  

Unprotect Chart

   <source lang="vb">

Sub UnprotectChart()

   Dim myChart As Chart
   Set myChart = ThisWorkbook.Sheets("Protected Chart")
   myChart.Unprotect "Excel2003"
   myChart.ProtectData = False
   myChart.ProtectGoalSeek = False
   myChart.ProtectSelection = False

End Sub

</source>