RefreshAll wordt niet afgemaakt

[richard67]

De volgende codering opent een beveiligde werkmap.
Het password wordt verwijderd en alle gegevens die van een gegevensbron afkomstig zijn zouden moeten worden bijgewerkt.
Hierna wordt het password weer geactiveerd.

Echter het password is weer geactiveerd voordat alle gegevens weer zijn vernieuwd.

Private Sub workbook_open()
Worksheets(1).Activate
ActiveSheet.Unprotect password:="HetWW"
MsgBox "De gegevens worden bijgewerkt!!"
ActiveWorkbook.RefreshAll
ActiveSheet.Protect password:="HetWW"
End Sub

Zonder ActiveSheet.Protect password, worden de gegevens vernieuwd.

 

[edmoor]

Is er wellicht een query waar aangegeven is dat deze op de achtergrond mag worden uitgevoerd?
Zet dat dan eens uit.

 

[richard67]

Inderdaad.

Bij Gebruik (eigenschappen van verbinding) stond <Vernieuwen op de achtergrond inschakelen> aangevinkt.

Functie werkt nu perfect.

 

[snb]

@richard,

Welkom !

Kun je svp jouw VBA code alsnog tussen codetags zetten ? zie: https://www.helpmij.nl/forum/announcement.php?f=5