Why don’t you open all 25 workbooks, update all links, then close the workbooks?
![]() |
Patch reliability is unclear. Unless you have an immediate, pressing need to install a specific patch, don't do it. |
SIGN IN | Not a member? | REGISTER | PLUS MEMBERSHIP |
-
Update links from password protected workbooks (07
Home » Forums » AskWoody support » Productivity software by function » MS Excel and spreadsheet help » Update links from password protected workbooks (07
- This topic has 3 replies, 3 voices, and was last updated 17 years, 7 months ago.
Viewing 0 reply threadsAuthorReplies-
WSgvanhook
AskWoody LoungerNovember 13, 2007 at 8:52 pm #1083607(Edited by HansV to provide link to post – see Help 19)
I have a project I have been asked to complete. We have a folder that contains about 25 workbooks that are each protected by their own unique password. I have been asked to create a summary workbook that contains the data from certain cells of each of these individual workbooks.
I have created a workbook with links to the data that I need to summarize, but each time I open the workbook I am asked to supply the password for each of the 25 files.
I found some code (post 675,462) in the lounge that will allow me to open each of the files, using a for/next loop but I am stumped on how to force the individual links to update while the workbook is open. Is there a piece of code that I can insert before the wkb.Close that will force the link to that workbook to update?Thanks in advance for any help you can provide. The code I am using is below.
Private Sub Workbook_Open()
Dim wkb As Workbook
Dim rng As Range
Dim rCell As Range
Dim sPath As String
Dim sFile As String
Dim sPassword As String
Dim sSummary As String‘set range for the path
Set rng = Range(“B:B25”)
Set sSummary = “Monthly_review_linked.xlsm”
For Each rCell In rng
sPath = rCell.Value
sPassword = rCell.Offset(0, 1).Value
sFile = rCell.Offest(0, 2).Value
Set wkb = Application.Workbooks.Open( _
Filename:=sPath, Password:=sPassword)wkb.Close (False)
Next
Set rCell = Nothing
Set rng = Nothing
Set wkb = Nothing
End Sub -
WSsdckapr
AskWoody LoungerNovember 14, 2007 at 2:05 pm #1083795You can use the “UpdateLinks” parameter in the OPEN command
From XL 2002 VBA Help on Workbooks.Open
[indent]
UpdateLinks Optional Variant. Specifies the way links in the file are updated. If this argument is omitted, the user is prompted to specify how links will be updated. Otherwise, this argument is one of the values listed in the following table.
Value Meaning
0 Doesn’t update any references
1 Updates external references but not remote references
2 Updates remote references but not external references
3 Updates both remote and external references
[/indent]
So you would do something like:
Set wkb = Application.Workbooks.Open( _
Filename:=sPath, Password:=sPassword, _
UpdateLinks:=3)to Update both remote and external references when each file is opened.
Steve -
WSgvanhook
AskWoody Lounger
-
-
Viewing 0 reply threads -

Plus Membership
Donations from Plus members keep this site going. You can identify the people who support AskWoody by the Plus badge on their avatars.
AskWoody Plus members not only get access to all of the contents of this site -- including Susan Bradley's frequently updated Patch Watch listing -- they also receive weekly AskWoody Plus Newsletters (formerly Windows Secrets Newsletter) and AskWoody Plus Alerts, emails when there are important breaking developments.
Get Plus!
Welcome to our unique respite from the madness.
It's easy to post questions about Windows 11, Windows 10, Win8.1, Win7, Surface, Office, or browse through our Forums. Post anonymously or register for greater privileges. Keep it civil, please: Decorous Lounge rules strictly enforced. Questions? Contact Customer Support.
Search Newsletters
Search Forums
View the Forum
Search for Topics
Recent Topics
-
Acronis : Tracking Chaos RAT’s evolution (Windows, Linux)
by
Alex5723
5 hours, 53 minutes ago -
Turning off OneDrive
by
CWBillow
10 hours, 22 minutes ago -
June 2025 updates are out
by
Susan Bradley
1 hour, 30 minutes ago -
Mozilla shutting Deep Fake Detector
by
Alex5723
20 hours, 39 minutes ago -
Windows-Maintenance-Tool (.bat)
by
Alex5723
6 hours, 2 minutes ago -
Windows 11 Insider Preview build 26200.5641 released to DEV
by
joep517
23 hours, 12 minutes ago -
Windows 11 Insider Preview build 26120.4250 (24H2) released to BETA
by
joep517
23 hours, 13 minutes ago -
Install Office 365 Outlook classic on new Win11 machine
by
WSrcull999
23 hours, 11 minutes ago -
win 10 to win 11 with cpu/mb replacement
by
aquatarkus
15 hours, 3 minutes ago -
re-install Windows Security
by
CWBillow
1 day, 2 hours ago -
WWDC 2025 Recap: All of Apple’s NEW Features in 10 Minutes!
by
Alex5723
1 day, 6 hours ago -
macOS Tahoe 26
by
Alex5723
1 day ago -
Migrating from win10 to win11, instructions coming?
by
astro46
12 hours, 27 minutes ago -
Device Eligibility for Apple 2026 Operating Systems due this Fall
by
PKCano
14 hours, 55 minutes ago -
Recommended watching : Mountainhead movie
by
Alex5723
15 hours, 39 minutes ago -
End of support for Windows 10
by
Old enough to know better
15 hours, 35 minutes ago -
What goes on inside an LLM
by
Michael Covington
9 hours, 48 minutes ago -
The risk of remote access
by
Susan Bradley
13 minutes ago -
The cruelest month for many Office users
by
Peter Deegan
21 hours, 51 minutes ago -
Tracking protection and trade-offs in Edge
by
Mary Branscombe
19 hours, 53 minutes ago -
Supreme Court grants DOGE access to confidential Social Security records
by
Alex5723
2 days, 4 hours ago -
EaseUS Partition Master free 19.6
by
Alex5723
1 day, 5 hours ago -
Microsoft : Edge is better than Chrome
by
Alex5723
2 days, 17 hours ago -
The EU launched DNS4EU
by
Alex5723
3 days, 6 hours ago -
Cell Phone vs. Traditional Touchtone Phone over POTS
by
280park
2 days, 20 hours ago -
Lost access to all my networked drives (shares) listed in My Computer
by
lwerman
3 days, 11 hours ago -
Set default size for pasted photo to word
by
Cyn
3 days, 17 hours ago -
Dedoimedo tries 24H2…
by
Cybertooth
3 days, 6 hours ago -
Windows 11 Insider Preview build 27871 released to Canary
by
joep517
4 days, 16 hours ago -
Windows 11 ad from Campaign Manager in Windows 10
by
Jim McKenna
2 days, 9 hours ago
Recent blog posts
Key Links
Want to Advertise in the free newsletter? How about a gift subscription in honor of a birthday? Send an email to sb@askwoody.com to ask how.
Mastodon profile for DefConPatch
Mastodon profile for AskWoody
Home • About • FAQ • Posts & Privacy • Forums • My Account
Register • Free Newsletter • Plus Membership • Gift Certificates • MS-DEFCON Alerts
Copyright ©2004-2025 by AskWoody Tech LLC. All Rights Reserved.