VBA code naar volgende stap nadat alles is gerefreshed

[peter59]

Ik ben bezig met een VBA-code die enkele seconden wacht, zodat alles de tijd krijgt om te verversen.
De onderstaande code is opgenomen met de macrorecorder, maar helaas loop ik daar vast.
Wie kan mij verder helpen? Alvast bedankt!

Sub Macro1()

    ActiveSheet.Unprotect
    ActiveWorkbook.RefreshAll
    
'wacht +/- 5 sec. zodat alles gerefreshed is en dan pas de beveiliging erop zetten
    
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False
    
End Sub

 

[JEC.]

Zet in de properties van de query dat background refresh niet toegestaan is(Vinkje uitzetten). De code wacht dan ook

 

[peter59]

Dat is natuurlijk niet de bedoeling.

Het werkblad bevat verschillende lijsten en tabellen, waaronder een querytabel.
In het hele werkblad zijn de cellen beveiligd of geblokkeerd, behalve de betreffende querytabel.
Deze heeft wat tijd nodig om te verversen, maar de VBA-code loopt gewoon door, waardoor de tabel niet de tijd krijgt om te verversen en het proces wordt afgebroken.

 

[cow18]

zet er 1 of meerdere doevents achter

 ActiveWorkbook.RefreshAll
 doevents:doevents:doevents

 

[JEC.]

Waarom is dat niet de bedoeling dan? Het doet verder niets anders.

 

[edmoor]

Inderdaad.
Dat vinkje uit, dan wacht de code tot de query gereed is.

 

[mvdvlist]

Of gebruik een OnTimeSerial