dannyok90
Board Regular
- Joined
- Aug 30, 2016
- Messages
- 115
Hi All,
I'm having some problems with a spreadsheet I have created at work.
I've created the spreadsheet in Excel 2007 and tested the spreadsheet on my computer to
ensure it works right. its got links to other spreadsheets on the network.
When I send out an email for people to go into it on their own computer, mainly the guys that have a later version of excel/windows
the links drop out and it comes up with a browser window asking them to locate the spreadsheet.
Everybody has access to he linked file but they don't necessarily know where it is so its a little frustrating.
The spreadsheet uses vba to update the links using update link sources but obviously its not remembering the location.
I've tried putting the file path in the .update link command but it just crashes.
Like i mentioned, if I open the workbook it works fine, and it does for most others but some have issues.
any ideas or resolutions?
Thanks A lot!
Dan
I'm having some problems with a spreadsheet I have created at work.
I've created the spreadsheet in Excel 2007 and tested the spreadsheet on my computer to
ensure it works right. its got links to other spreadsheets on the network.
When I send out an email for people to go into it on their own computer, mainly the guys that have a later version of excel/windows
the links drop out and it comes up with a browser window asking them to locate the spreadsheet.
Everybody has access to he linked file but they don't necessarily know where it is so its a little frustrating.
The spreadsheet uses vba to update the links using update link sources but obviously its not remembering the location.
I've tried putting the file path in the .update link command but it just crashes.
Like i mentioned, if I open the workbook it works fine, and it does for most others but some have issues.
any ideas or resolutions?
Thanks A lot!
Dan
Code:
Private Sub Workbook_Open()
ActiveSheet.Unprotect Password:="rse1"
ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources
ActiveSheet.Protect Password:="rse1"
Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"",False)"
ActiveWindow.DisplayWorkbookTabs = False
MsgBox "HOW TO USE:" & vbNewLine & "Cells to be filled in using concise wording in capital letters." & vbNewLine & "" & vbNewLine & "Progress to Plan & Resource - Contract dates to be taken from Insight." & vbNewLine & "" & vbNewLine & "Deliverables - Only show outstanding." & vbNewLine & "" & vbNewLine & "Once you have completed the PSR, Click 'Submit'"
Sheets("PSR Template").Calculate
End Sub