Kan grafiek niet aanpassen met macro op beveiligd werkblad

[lekkerbek312]

Hallo,

ik heb een macro waarbij de grafiek gewijzigd wordt met de volgende code:

Sub Kerncijfers_resultaat()
Application.ScreenUpdating = False
ActiveSheet.ChartObjects("Grafiek 3").Activate
    ActiveChart.PlotArea.Select
    ActiveChart.FullSeriesCollection(1).Values = _
        "='Kerncijfers en grafieken'!$B$11"
    ActiveChart.FullSeriesCollection(2).Values = _
        "='Kerncijfers en grafieken'!$D$11"
    ActiveChart.FullSeriesCollection(3).Values = _
        "='Kerncijfers en grafieken'!$F$11"
    ActiveChart.FullSeriesCollection(1).XValues = _
        ""
Range("G10:K11").Select
    ActiveCell.FormulaR1C1 = "Resultaat"
Range("L10:O11").Select
    ActiveCell.FormulaR1C1 = "Resultaat"
Range("M14:N14").Select
    ActiveCell.FormulaR1C1 = "=AVERAGEIF(DT!R27C144:R38C144,""<>0"")"
    Selection.NumberFormat = "€ #,##0"
    Range("M18:N18").Select
    ActiveCell.FormulaR1C1 = "=AVERAGEIF(Tabel1[Resultaat],""<>0"")"
    Selection.NumberFormat = "€ #,##0"
ActiveSheet.ChartObjects("Grafiek 8").Activate
    ActiveChart.PlotArea.Select
    ActiveChart.FullSeriesCollection(1).Name = "=DT!$EZ$2"
    ActiveChart.FullSeriesCollection(1).Values = "=DT!$EZ$3:$EZ$14"
Range("A11").Select
End Sub

Het blad is beveiligd, maar bij de eigenschappen van de grafiek heb ik het vinkje bij geblokkeerd weggehaald.

Ik krijg nu de volgende foutmelding:

"methode select van object plotarea is mislukt

Hij blijft hangen bij regel 4:

ActiveChart.PlotArea.Select

Als ik de beveiliging eraf haal, dan doet ie het wel. Wat doe ik hier fout?

 

[jkpieterse]

In je macro in het begin de beveiliging even uitzetten en aan het einde weer aan?

 

[gast0660]

Hoi,

Sub Kerncijfers_resultaat()
Sheet1.Unprotect Password:="uw paswoord"
'Uw Code
Sheet1.Protect Password:="uw paswoord"
End Sub

of mischien werkt zoiets voor u?

Private Sub Workbook_Open()

Dim wSheet As Worksheet
For Each wSheet In Worksheets
wSheet.Protect Password:="uw paswoord", _
UserInterFaceOnly:=True
Next wSheet
End Sub

mvg

 

[lekkerbek312]

Thanks, uit en aanzetten werkt goed. Blijf het vreemd vinden, omdat de grafiek niet geblokkeerd was.

 

[gast0660]

Hoi,
mooi zo dat je verder kunt:thumb:
groet