• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Workbook_open

Status
Niet open voor verdere reacties.
W

Wampie Beukies

Gebruiker
Lid geworden
7 sep 2009
Berichten
88
Hallo forumleden,

Bij het openen van het bestand 'GHW 2020 II' heb ik de volgende code in 'this workbook':

Code: 
Private Sub Workbook_Open()

Application.DisplayAlerts = False
Application.ScreenUpdating = False

Workbooks.Open "C:\Shares\Algemeen\Loes\gegevens ghw.xlsx"
Workbooks("GHW 2020 II.xlsm").Activate
Sheets("Beschikbaarheid").Select

Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Toch krijg ik nog steeds de pop-up voor het bijwerken van gegevens uit een ander bestand, screenupdating doet het 'gewoon' en na het openen van 'gegevens ghw' ga ik niet terug naar 'GHW 2020 II'.

Weet iemand wat er mis gaat?
 
En wat als je het bijwerken op handmatig zet via opties

Extra - Opties- Bewerken
het vinkje weghaalt bij: Bijwerken automatische koppelingen bevestigen.

En indien je onder Extra - Opties - Berekenen het berekenen op Handmatig zet
zal alles wat vlugger gaan.
 
@JVeer
En wat als je het bijwerken op handmatig zet via opties
Klik om te vergroten...

Dit geldt dan voor alles in Excel op deze pc, bovendien wordt het bestand ook op andere pc's gebruikt.

Via VBA zou het moeten kunnen werken. Helaas, is het enige wat de code wel doet, is het andere bestand openen. Staat de code op de verkeerde plek, of moet er nog iets voor of bij?
 
kijk eens hier:https://docs.microsoft.com/nl-nl/office/troubleshoot/excel/control-startup-message
en voor vraag 2 werkt dit misschien:
Code: 
Private Sub Workbook_Open()

Application.DisplayAlerts = False
Application.ScreenUpdating = False

Workbooks.Open "C:\Shares\Algemeen\Loes\gegevens ghw.xlsx"
[COLOR="#FF0000"]Application.WindowState = xlMinimized[/COLOR]
Workbooks("GHW 2020 II.xlsm").Activate
Sheets("Beschikbaarheid").Select

Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Ben me niet zeker of dit de juiste oplossing is.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan