NEWTOMACROS2
New Member
- Joined
- Jun 4, 2018
- Messages
- 8
Hello,
I created a macro that opened & updated links on a password protected master wb linked to 10 slave wb.
See link below:
https://www.mrexcel.com/forum/excel...dating-password-protected-excel-workbook.html
My current issue is... when I make changes to my master wb, that change is not reflected in my slave wb. So if my supervisor changes the title of a cell on the master wb it wont show on the slave wb. However, if a user makes a change on the slave wb it updates the master wb.
Can someone help me figure this part out? I'm new to macros so please keep it simple.![Smile :) :)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
(*Both the master/slave wb are password protected and every slave wb has a different password).
Here is the code again:
Private Sub Workbook_Open()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Workbooks.Open Filename:="WKLY.xlsx", ReadOnly:=True, Password:="XXX"
Workbooks.Open Filename:=" 1.xlsx", UpdateLinks:=3, ReadOnly:=True, Password:="XXX"
Workbooks.Open Filename:=" 2.xlsx", UpdateLinks:=3, ReadOnly:=True, Password:="XXX"
Workbooks.Open Filename:=" 3.xlsx", UpdateLinks:=3, ReadOnly:=True, Password:="XXX"
Workbooks.Open Filename:=" 4.xlsx", UpdateLinks:=3, ReadOnly:=True, Password:="XXX"
Workbooks.Open Filename:=" 5.xlsx", UpdateLinks:=3, ReadOnly:=True, Password:="XXX"
Workbooks.Open Filename:=" 6.xlsx", UpdateLinks:=3, ReadOnly:=True, Password:="XXX"
Workbooks.Open Filename:=" 7.xlsx", UpdateLinks:=3, ReadOnly:=True, Password:="XXX"
Workbooks.Open Filename:=" 8.xlsx", UpdateLinks:=3, ReadOnly:=True, Password:="XXX"
Workbooks.Open Filename:=" 9.xlsx", UpdateLinks:=3, ReadOnly:=True, Password:="XXX"
Workbooks.Open Filename:=" 10.xlsx", UpdateLinks:=3, ReadOnly:=True, Password:="XXX"
ActiveWindow.Close SaveChanges:=False
ActiveWindow.Close SaveChanges:=False
ActiveWindow.Close SaveChanges:=False
ActiveWindow.Close SaveChanges:=False
ActiveWindow.Close SaveChanges:=False
ActiveWindow.Close SaveChanges:=False
ActiveWindow.Close SaveChanges:=False
ActiveWindow.Close SaveChanges:=False
ActiveWindow.Close SaveChanges:=False
ActiveWindow.Close SaveChanges:=False
ActiveWindow.Close SaveChanges:=False
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
I created a macro that opened & updated links on a password protected master wb linked to 10 slave wb.
See link below:
https://www.mrexcel.com/forum/excel...dating-password-protected-excel-workbook.html
My current issue is... when I make changes to my master wb, that change is not reflected in my slave wb. So if my supervisor changes the title of a cell on the master wb it wont show on the slave wb. However, if a user makes a change on the slave wb it updates the master wb.
Can someone help me figure this part out? I'm new to macros so please keep it simple.
(*Both the master/slave wb are password protected and every slave wb has a different password).
Here is the code again:
Private Sub Workbook_Open()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Workbooks.Open Filename:="WKLY.xlsx", ReadOnly:=True, Password:="XXX"
Workbooks.Open Filename:=" 1.xlsx", UpdateLinks:=3, ReadOnly:=True, Password:="XXX"
Workbooks.Open Filename:=" 2.xlsx", UpdateLinks:=3, ReadOnly:=True, Password:="XXX"
Workbooks.Open Filename:=" 3.xlsx", UpdateLinks:=3, ReadOnly:=True, Password:="XXX"
Workbooks.Open Filename:=" 4.xlsx", UpdateLinks:=3, ReadOnly:=True, Password:="XXX"
Workbooks.Open Filename:=" 5.xlsx", UpdateLinks:=3, ReadOnly:=True, Password:="XXX"
Workbooks.Open Filename:=" 6.xlsx", UpdateLinks:=3, ReadOnly:=True, Password:="XXX"
Workbooks.Open Filename:=" 7.xlsx", UpdateLinks:=3, ReadOnly:=True, Password:="XXX"
Workbooks.Open Filename:=" 8.xlsx", UpdateLinks:=3, ReadOnly:=True, Password:="XXX"
Workbooks.Open Filename:=" 9.xlsx", UpdateLinks:=3, ReadOnly:=True, Password:="XXX"
Workbooks.Open Filename:=" 10.xlsx", UpdateLinks:=3, ReadOnly:=True, Password:="XXX"
ActiveWindow.Close SaveChanges:=False
ActiveWindow.Close SaveChanges:=False
ActiveWindow.Close SaveChanges:=False
ActiveWindow.Close SaveChanges:=False
ActiveWindow.Close SaveChanges:=False
ActiveWindow.Close SaveChanges:=False
ActiveWindow.Close SaveChanges:=False
ActiveWindow.Close SaveChanges:=False
ActiveWindow.Close SaveChanges:=False
ActiveWindow.Close SaveChanges:=False
ActiveWindow.Close SaveChanges:=False
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub