Thanks Bill,
I really respect your opinions and look for answers by you because I know
they are good.
All these guys are MIT graduates (and much better programmers than I but
they are busy doing Bond Market Analysis). None could come up with a
solution and said "I'd be their hero" if I could solve it. They say they do
have good reasons NOT to recalculate the entire workbook before saving. I
too wonder why the workbooks can't be recalculated before save.
Dave
> > Since we have shared files, often someone will change something in
> > a file while in Manual calculation and then save the file. The automated
[quoted text clipped - 13 lines]
> MVP - Microsoft Excel, Oxford, England
> No email replies please - respond to newsgroup
Albert - 11 Nov 2003 03:10 GMT
One valid case is if the source workbook has too many formula
references (more than 65K?) so that Excel cannot determine whether the
workbook has been calculated and always displays "calculate" in the
status bar (see MS knowledge base article Q243495). I have such a
workbook which I am referencing from another and the second workbook
continually claims the first one was not recalculated before saving.
This is very annoying and I wish I could just turn the message off.
> Thanks Bill,
>
[quoted text clipped - 33 lines]
> > MVP - Microsoft Excel, Oxford, England
> > No email replies please - respond to newsgroup
Albert - 11 Nov 2003 04:48 GMT
I have found a solution to the problem. Try this:
In Excel, select Edit | Links, click "Startup Prompt" button, select
second option "Don't display alert, don't update". Now add the
following VB code:
Private Sub Workbook_Open()
Application.DisplayAlerts = False
ExcelLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(ExcelLinks) Then
For i = LBound(ExcelLinks) To UBound(ExcelLinks)
ActiveWorkbook.UpdateLink Name:=ExcelLinks(i)
Next i
End If
Application.DisplayAlerts = True
End Sub
This seems to work for me in a set of test workbooks. UpdateLink
generates and error if the update fails (which you can further trap to
display an appropriate message).
> Thanks Bill,
>
[quoted text clipped - 33 lines]
> > MVP - Microsoft Excel, Oxford, England
> > No email replies please - respond to newsgroup