Macro > Draaitabel verversen; In beveiligd werkblad werkt niet

[Timmiesch]

Ik heb in een werkblad 7 draaitabellen staan.
daarin gebruik ik de volgende VBA code om alle draaitabellen te verversen:

Sub AllWorkbookPivots()
Dim pt As PivotTable
Dim ws As Worksheet

    For Each ws In ActiveWorkbook.Worksheets
    
        For Each pt In ws.PivotTables
                    pt.RefreshTable
        Next pt
        
    Next ws
    
End Sub

Als ik dit uitvoer krijg ik de foutmelding 400 en dan staat er dat je in een beveiligd werkblad die macro niet uit kan voeren?
Heb in een eerder bestand wel deze mogelijkheid tot uitvoeren en levert daar geen probleem op?
Iemand enig idee hoe dit op te lossen?

 

[Finch]

Is je blad beveiligd met userinterfaceonly=true?

Anders dat eens even proberen.

 

[Timmiesch]

Hoe controleer ik dat?
Sorry kan wel veel in excel maar ben toch ook weer een leek:$!

 

[Finch]

Lees even deze post na die ik hier in het verleden heb neergepoot:

http://www.helpmij.nl/forum/showpost.php?p=2132295&postcount=8

 

[RoCompy87]

Volgens mij is jouw probleem met draaitabellen refreshen en beveiligingen een bekend probleem in Excel 2003 (en XP). In het laatste Service Pack voor Office 2003/XP wordt dit probleem opgelost. (Betekent wel dat de eindgebruiker zijn Officepakket ook tot zover moet hebben ge-update.) Dus ga eens naar Office/Microsoft Update.