View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.misc
JLatham JLatham is offline
external usenet poster
 
Posts: 2,203
Default Excel Open Error

At least there's hope for a cure.

"macroplay" wrote:

on your 1st question: no - no other copies open at the time. I save then
close then try re-opening the newly saved file.

2nd question: no, if i go back to the original file and saveas there is no
error until the 2nd generation of the file.

A further note: a dialog box pops up to "send error to microsoft". If I
press that, a message comes back that microsoft has identified a patch for
this error. I haven't downloaded the patch yet but when I do I will post an
update.

thanks.


"JLatham" wrote:

Just trying to gather some more information here.

When you open save rename and open again, do you have any other copies
(under earlier names) open in Excel? Or is it just one workbook open?

If you take file1, save as file4, close it and open it up, do you get the
same error?

"macroplay" wrote:

Ok, I have a really bizarre problem...

I have a workbook "file1". If I open file1 and make any chnage such as
changing the test of a header cell and save file1 as file2 and close it. I
can then open file2 but if I make a similar little change to file2 and save
as file3 and close. When I try to open file3 I get an error from excel that
says

"Microsoft Excel has encountered a problem and needs to close. We are sorry
for the inconvenience."

It tries to repair the file3 but if I view the repairs it indicates that the
prblems were so extensive that it could not be repaired.

The original file1 I don't think has anything special about it. Some
formulas referring to cells in other sheets of the same file, some drop down
lists. There is a worksheet function (code below) but even if I delete this
code I have the same problem. Even if I delete all the sheets the problem
persists.

Does anyone have any idea why this would be happening ???

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count 1 Then Exit Sub
If Intersect(Range("B31:B126"), Target) Is Nothing Then Exit Sub

Application.EnableEvents = False
Application.Calculation = xlCalculationManual


Application.Run "VarMacro.xls!update5mBlotter" ' another workbook
Application.Run "VarMacro.xls!updateHourBlotter" ' another workbook

Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic

End Sub