Draai tabel verversen als blad beveiligd is

[Bereboot]

Heb een werkmap met draaitabellen Nu zitten daar een aantal formules in die niet aangepast mogen worden.
Dus ik denk ik beveilig het werkblad. Maar als ik nu de gegevens wil verversen gaat dat niet.
Hoe kan ik dit oplossen.

 

[Haije]

sla de werkmap op als .xlsm of .xlsb (dus met macro's geactiveerd) en zet dit achter het betreffende tabblad:

Private Sub Worksheet_Activate()
    ActiveSheet.Unprotect
    ActiveSheet.PivotTables(1).PivotCache.Refresh
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True, AllowUsingPivotTables:=True
End Sub

 

[Bereboot]

De code plaatsen Is dit juist zo

Moet je dat doe bij alle tabbladen?
Is dit de juist zo als ik dit hebt gedaan?

 

[Haije]

ja, dat moet bij elke tabblad waar een draaitabel op staat en zo te zien heb je het op de juiste plaats gezet

 

[Bereboot]

Krijg deze foutmelding

Heb op alle tabbladen waar een draaitabel in voorkomt deze code geplakt.
Ik krijg nu een foutmelding bij het verversen van de gegevens.

 

[Haije]

plaats eens een uitgeklede kopie van je bestand, waar geen "gevoelige info meer in voorkomt.

 

[Bereboot]

Test werkmap

Hierbij de test werk map


Als op het tabblad in de kolom Taak een S, SL,O of U wordt geplaatst heeft dat gevolgen voor de plattegrond tekening van de verdiepingen.

 

[edmoor]

Als er een wachtwoord op die bladen zit moet je die wel meegeven achter ActiveSheet.Unprotect
Dus: ActiveSheet.Unprotect "WachtWoord"

 

[Bereboot]

Krijg nog steeds een fout melding.
waar gaat het nog niet goed
Heb het wachtwoord ingegeven
met haakjes, zonder haakjes en zoals het staat.

 

[edmoor]

Je hebt alleen draaitabellen achter de bladen Medewerkers en Totaalblad.
Je zal dus op moeten geven welke draaitabel op welk blad je wilt verversen.
Nu doe je dat bij ieder blad en zal het fout gaan omdat daar PivotTables(1) niet kan worden gevonden.

 

[Bereboot]

Ik heb ook draaitabellen op de tabbladen van de verdiepingen vanaf AI

En op alle tabblad waar draaitabellen op staan deze programmacode staan




Worksheet Activate
Private Sub Worksheet_Activate()
ActiveSheet.Unprotect "ik"
ActiveSheet.PivotTables(1).PivotCache.Refresh
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True, AllowUsingPivotTables:=True
End Sub

 

[edmoor]

Ik heb inderdaad niet goed gekeken
Zo te zien is het vervesen van een draaitable afhankelijk van het toegankelijk zijn van een andere dan het actieve blad.
Probeer het dus eens zo:

    For Each sh In ThisWorkbook.Sheets
        Sheets(sh.Name).Unprotect "ik"
    Next sh

    For Each pvt In ActiveSheet.PivotTables
        PivotTables(pvt.Name).PivotCache.Refresh
    Next pvt

 

[jkpieterse]

Je moet niet de gehele pivotcache vernieuwen, maar alleen de draaitabel zelf:

Private Sub Worksheet_Activate()
    Me.Unprotect "ik"
    Me.PivotTables(1).RefreshTable
    Me.Protect "ik"
End Sub

 

[Bereboot]

Krijg het niet voor elkaar

Maar heb nu de draaitabellen op een ander tabblad gemaakt die verborgen worden en dan gaat het ook.

Voor nu probleem opgelost.