opdater pivottabel via VBA

Hej,

Jeg har en række Excel filer indeholdende  fra 1-4 pivotabeller, som alle trækker data fra Access.

Da mange personer anvender Excel filerne i dagligdagen er disse skrivebeskyttet.

Har forsøgt at skrive en VBA-kode, som opdaterer pivotabellen/pivotabellerne automatisk, når brugerne åbner excelarket, sådan at de ikke selv skal tænke på at opdatere dataene, når de arbejder med pivottabellerne. Dataene i accesstabellerne opdateres ca. 1 gang om måneden. 

Men kan ikke helt få koden til at virke - så gode råd modtages meget gerne:-)

Private Sub Workbook_Open()

    Dim pt As PivotTable
    Dim ws As Worksheet
   
    ActiveWorkbook.ChangeFileAccess Mode:=xlReadWrite

        For Each ws In ActiveWorkbook.Worksheets

        For Each pt In ws.PivotTables

            pt.RefreshTable

        Next pt

   
        Next ws
   
    ThisWorkbook.Save

    ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly

End Sub