Koppeligen bijwerken

[CrashPuppy]

Bekend is dat het vragen op de koppelingen bij te werken via optie's in de menubalk.
Ik wil graag een stukje code in iedere werkmap willen opnemen dat bij het activeren van het blad of werkmap de koppelingen automatisch worden bijgewerkt zonder te vragen en ongeacht of de gebruikt het vinkje aan of uitstaat voorwat betreft het bijwerken.
Is er zo iets en waar zou ik het dan kunnen vinden in er al een soortgelijke vraag op dit forum zweeft.

CrashPuppy

 

[wim1985]

Dit gebruik ik in de macro's

whith
ThisWorkbook.UpdateLink ThisWorkbook.LinkSources
End with

gr Wim

 

[CrashPuppy]

Dit gebruik ik in de macro's

whith
ThisWorkbook.UpdateLink ThisWorkbook.LinkSources
End with

gr Wim

Waar moet ik hem plaatsen? Ik weet niet zo goed wat ik hier mee moet. Plaatsen in "This Workbook" werkt niet en hij vraag toch om bijwerken
Het werk niet op een beveiligd blad en dat moet eigenlijk

CrashPuppy

 

[wim1985]

Je kan als volgt doen

Private Sub Workbook_Open()
ThisWorkbook.UpdateLink ThisWorkbook.LinkSources
End Sub

Nu werkt hij de koppeling bij in alle sheets van het te openen workbook

 

[CrashPuppy]

Het werkt wel maar niet in een beveiligde mappen en dat wil ik graag.

CrashPuppy

 

[wim1985]

Probeer dit maar eens

Private Sub Workbook_Open()
Workbook.Unprotect
ThisWorkbook.UpdateLink ThisWorkbook.LinkSources
Workbook.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

 

[Warme bakkertje]

Private Sub Workbook_Open()
Dim wSheet As Worksheet
On Error Resume Next
Application.ScreenUpdating = False
     For Each wSheet In Worksheets
        wSheet.Protect Password:="mijnwachtwoord", UserInterFaceOnly:=True
    Next wSheet
ThisWorkbook.UpdateLink ThisWorkbook.LinkSources
Application.ScreenUpdating = True
End Sub

Mvg

Rudi