Alles vernieuwen draaitabellen

[sis123]

Ik heb een sheet met daarop 10 draaitabellen.

Nu moet er telkens op de opdrachtknop alles vernieuwen gedrukt worden na bijwerking basistabel-sheet, vooraleer afdruk kan worden gemaakt.

Probleem hierbij is dat men het zou vergeten en dan zit men met oude updates.
Een tweede probleem is het beveiligen van de sheet met draaitabellen, dit blad zou enkel mogen afgedrukt worden, maar als ik beveilig kan er niet vernieuwd worden.

Heeft u een oplossing ?

 

[Wigi]

Ik heb een sheet met daarop 10 draaitabellen.

Nu moet er telkens op de opdrachtknop alles vernieuwen gedrukt worden na bijwerking basistabel-sheet, vooraleer afdruk kan worden gemaakt.

Probleem hierbij is dat men het zou vergeten en dan zit men met oude updates.
Een tweede probleem is het beveiligen van de sheet met draaitabellen, dit blad zou enkel mogen afgedrukt worden, maar als ik beveilig kan er niet vernieuwd worden.

Heeft u een oplossing ?

Werkt dit? Ik heb het niet getest. Vervang jouwpaswoord.

Sub draaitabellenupdaten()
Dim pt As PivotTable
Application.ScreenUpdating = False
ActiveWorkbook.Unprotect "jouwpaswoord"
For Each pt In ActiveSheet.PivotTables
    pt.Update
Next
ActiveWorkbook.Protect "jouwpaswoord"
Application.ScreenUpdating = True
End Sub

Wigi

 

[sis123]

Wat zij de stappen om deze code in te voegen ?

 

[Wigi]

Wat zij de stappen om deze code in te voegen ?

Hello

1 Alf-F11 om in de VBE te komen.
2. In Project-VBAproject zoek je je bestand op
3. dubbelklik erop
4. dubbelklik op de naam van het tabblad waar de draaitabellen staan
5. plak de code in het witte venster
6. nog eens Alt-F11 om terug te keren naar Excel
7. doe Alt-F8 en voer de macro uit.

Wigi

 

[sis123]

Ik heb de code zo ingevoerd en de macro uitgevoerd (fout visual basic 4).

Bij vernieuwen van dit blad geeft hij "kan een draaitabel niet bewerken op een beveiligd blad"

 

[Wigi]

Ik heb de code zo ingevoerd en de macro uitgevoerd (fout visual basic 4).

Bij vernieuwen van dit blad geeft hij "kan een draaitabel niet bewerken op een beveiligd blad"

Heb je 2 keer in de code

jouwpaswoord

vervangen door het juiste paswoord?

Wigi

 

[sis123]

Sub draaitabellenupdaten()
Dim pt As PivotTable
Application.ScreenUpdating = False
ActiveWorkbook.Unprotect "test"
For Each pt In ActiveSheet.PivotTables
pt.Update
Next
ActiveWorkbook.Protect "test"
Application.ScreenUpdating = True
End Sub

 

[Wigi]

Zet eens code tags rond je code. Dan wordt het beter leesbaar. (klik op het hekje)

Werkt dit?

Sub draaitabellenupdaten()
Dim pt As PivotTable
Application.ScreenUpdating = False
ActiveWorkbook.Unprotect "paswoord"
For Each pt In ActiveSheet.PivotTables
MsgBox "hallo clara"
Next
ActiveWorkbook.Protect "paswoord"
Application.ScreenUpdating = True
End Sub

M.a.w., krijg je telkens een MsgBox voor elke draaitabel?

Wigi

 

[Wigi]

Voilà

Sub draaitabellenupdaten()
Dim pt As PivotTable
Application.ScreenUpdating = False
ActiveSheet.Unprotect "paswoord"
For Each pt In ActiveSheet.PivotTables
    pt.PivotCache.Refresh
Next
ActiveSheet.Protect "paswoord"
Application.ScreenUpdating = True
End Sub

Verander wel je paswoord nu dat dit op een publiek forum staat.

Wigi

 

[sis123]

Prima dit werkt al, bedien de macro via een knop [ ]op een werkbalk . Danke :thumb:

Is het ook mogelijk een automatische macro code in te voegen die :

zodra blad4 wordt aangeklikt de vernieuwing gebeurt ?

 

[Wigi]

[Is het ook mogelijk een automatische macro code in te voegen die :

zodra blad4 wordt aangeklikt de vernieuwing gebeurt ?

Gebruik dit als code achter blad4:

Private Sub Worksheet_Activate()
'de eerdere code
End Sub

en vervang regel 2.

Wigi

 

[sis123]

Private Sub Worksheet_Activate()
Dim pt As PivotTable
Application.ScreenUpdating = False
ActiveSheet.Unprotect "pw"
For Each pt In ActiveSheet.PivotTables
pt.PivotCache.Refresh
Next
ActiveSheet.Protect "pw"
Application.ScreenUpdating = True
End Sub

Lukt niet zo goed - moet ik worksheet vervangen door de naam ?

ps. kun je uit algemene veiligheid het wachtwoord toch wijzigen in uw berichtje ?

alvast bedankt

 

[Wigi]

Private Sub Worksheet_Activate()
Dim pt As PivotTable
Application.ScreenUpdating = False
ActiveSheet.Unprotect "pw"
For Each pt In ActiveSheet.PivotTables
pt.PivotCache.Refresh
Next
ActiveSheet.Protect "pw"
Application.ScreenUpdating = True
End Sub

Lukt niet zo goed - moet ik worksheet vervangen door de naam ?

ps. kun je uit algemene veiligheid het wachtwoord toch wijzigen in uw berichtje ?

alvast bedankt

Waar heb je de code geplakt?

Ik heb de paswoorden vervangen.

 

[Wigi]

Hello

1 Alf-F11 om in de VBE te komen.
2. In Project-VBAproject zoek je je bestand op
3. dubbelklik erop
4. dubbelklik op de naam van het tabblad waar de draaitabellen staan
5. plak de code in het witte venster
6. nog eens Alt-F11 om terug te keren naar Excel
7. doe Alt-F8 en voer de macro uit.

Wigi

Je moet ze op dezelfde plaats zetten als wat ik hier getypt heb.

 

[sis123]

Ik doe het op die manier, maar als ik de macro uitvoer is er geen !
Is de code juist zo ?

 

[Wigi]

Ik doe het op die manier, maar als ik de macro uitvoer is er geen !

Wat is er niet... ?

Is de code juist zo ?

Als je het paswoord juist instelt, wel ja.

 

[sis123]

Geen macro bij F8

bijlage

 

[Wigi]

Sis

zet de code bij

Blad1 (blad4)

ik weet dat het verwarrend is, maar dat komt omdat jij niet echt geschikte namen geeft aan je tabbladen. Doe je dat, dan zou het duidelijker zijn.

Nu gaat het goed werken...

Wigi

 

[sis123]

Prachtig, het LUKT
Hartelijk bedankt
:thumb:

 

[Wigi]

Prachtig, het LUKT
Hartelijk bedankt
:thumb:

Graag gedaan.

Maar verander zeker de namen van de sheets, kan je nogal wat ellende besparen.

Wigi