VBA/Excel/Access/Word/Excel/Chart Protect
Версия от 19:33, 26 мая 2010; (обсуждение)
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>