Opgelost 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

 

[JEC.]

Gewoon vinkje uitzetten. Sterker nog, wanneer de query eens langer werk heeft dan normaal, zal hij alsnog falen bij gebruik van ingebouwde wachttijden

 

[snb]

Gebruik desnoods een klassemodule (bijv clsModQT) voor de afhandeling van het bijwerken.
Maak een instantie van de klassemodule.
Wijs de Querytabel toe aan de klassemoduleinstantie.

Public WithEvents qt As QueryTable
Private Sub qt_AfterRefresh(ByVal Success As Boolean)
    MsgBox qt.Destination
End Sub

' in het werkblad

Dim X As New ClsModQT

Sub initialiseer()
  Set X.qt = ThisWorkbook.Sheets(2).QueryTables(1)
End Sub

 

[peter59]

@Alle helpers

Helaas niet gelukt.

@edmoor en @JEC.
Wat bleek? Het vinkje bij de eigenschappen van de query met betrekking tot background refresh stond al uit.

@cow18 en @mvdvlist
Gestoeid met de DoEvent en OnTimeSerial en de application.wait.

@snb
Het geheel nog niet getest.

Hoe heb ik dit tot nu toe opgelost?
Door een hulpblad te maken - dat wordt verborgen met xlSheetVeryHidden - waar de querytabel wordt ververst.
De tabel in het beveiligde blad is verwijderd en op die plek is een koppeling naar het hulpblad geplaatst. Het hele blad is volledig beveiligd, op een paar cellen na.
Deze code wordt later aan een knop gekoppeld. Dit is nu de eenvoudige code; er wordt later nog een wachtwoord aan toegevoegd.

Sub RefreshData()
    ActiveWorkbook.RefreshAll
End Sub

Allen, nogmaals dank voor het meedenken.

 

[JEC.]

Heel vreemd dat het niet werkt zonder background refresh. Heb je soms meerdere queries lopen bij refresh.All? Zo ja, vink bij alle queries die optie uit

 

[peter59]

Het gaat om 2 query's en bij beide staat de achtergrondvernieuwing uitgeschakeld.
Ik heb van alles geprobeerd, zoals de 2 query's één voor één verversen, maar helaas zonder succes.
Het vreemde is dat wanneer ik F8 gebruik en de code handmatig regel voor regel doorloop, de onderstaande code gewoon werkt.

Sub Macro1()

    ActiveSheet.Unprotect
    ActiveWorkbook.RefreshAll
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False
    
End Sub

 

[JEC.]

Hoeveel connecties zijn er aanwezig in je bestand? Zijn er connecties welke niet geladen zijn?