I have the following macro that works great upon exiting my workbook but how
can I modify it to prevent calculations from running whenever someone opens
it? There are so many formulas and so much data on each sheet that if we
don't calculate each sheet manually, then we have to end task on Excel
because it will not complete the calculations.

Thanks!

Randy

Private Sub Workbook_Open()

With Application
.Calculation = xlManual
.CalculateBeforeSave = False
End With

End Sub

If a workbook needs to be calced and calc mode is automatic Excel will calc
it upon opening it before startup macros run. So setting calc mode to
manual in Sub Workbook_Open is too late. Set it to manual before opening.

--
Jim
"Randy" wrote in message
...
I have the following macro that works great upon exiting my workbook but
how
can I modify it to prevent calculations from running whenever someone
opens
it? There are so many formulas and so much data on each sheet that if we
don't calculate each sheet manually, then we have to end task on Excel
because it will not complete the calculations.

Thanks!

Randy

Private Sub Workbook_Open()

With Application
.Calculation = xlManual
.CalculateBeforeSave = False
End With

End Sub

Makes sense but I have not been able to figure out how. Any help would be
appreciated.

Thanks!

"Jim Rech" wrote:

If a workbook needs to be calced and calc mode is automatic Excel will calc
it upon opening it before startup macros run. So setting calc mode to
manual in Sub Workbook_Open is too late. Set it to manual before opening.

--
Jim
"Randy" wrote in message
...
I have the following macro that works great upon exiting my workbook but
how
can I modify it to prevent calculations from running whenever someone
opens
it? There are so many formulas and so much data on each sheet that if we
don't calculate each sheet manually, then we have to end task on Excel
because it will not complete the calculations.

Thanks!

Randy

Private Sub Workbook_Open()

With Application
.Calculation = xlManual
.CalculateBeforeSave = False
End With

End Sub

Open excel with a blank (new) workbook.
Change the calculation mode
file|open your workbook



Randy wrote:

Makes sense but I have not been able to figure out how. Any help would be
appreciated.

Thanks!

"Jim Rech" wrote:

If a workbook needs to be calced and calc mode is automatic Excel will calc
it upon opening it before startup macros run. So setting calc mode to
manual in Sub Workbook_Open is too late. Set it to manual before opening.

--
Jim
"Randy" wrote in message
...
I have the following macro that works great upon exiting my workbook but
how
can I modify it to prevent calculations from running whenever someone
opens
it? There are so many formulas and so much data on each sheet that if we
don't calculate each sheet manually, then we have to end task on Excel
because it will not complete the calculations.

Thanks!

Randy

Private Sub Workbook_Open()

With Application
.Calculation = xlManual
.CalculateBeforeSave = False
End With

End Sub



--

Dave Peterson

That's what I currently do. I was just hoping there was something
programatically that could be done.

Thanks!

"Dave Peterson" wrote:

Open excel with a blank (new) workbook.
Change the calculation mode
file|open your workbook



Randy wrote:

Makes sense but I have not been able to figure out how. Any help would be
appreciated.

Thanks!

"Jim Rech" wrote:

If a workbook needs to be calced and calc mode is automatic Excel will calc
it upon opening it before startup macros run. So setting calc mode to
manual in Sub Workbook_Open is too late. Set it to manual before opening.

--
Jim
"Randy" wrote in message
...
I have the following macro that works great upon exiting my workbook but
how
can I modify it to prevent calculations from running whenever someone
opens
it? There are so many formulas and so much data on each sheet that if we
don't calculate each sheet manually, then we have to end task on Excel
because it will not complete the calculations.

Thanks!

Randy

Private Sub Workbook_Open()

With Application
.Calculation = xlManual
.CalculateBeforeSave = False
End With

End Sub



--

Dave Peterson

Jim's point was that there was nothing you could do in that workbook that would
help.

But you could use two workbooks.

The first workbook changes calculation to manual, then opens the real workbook,
then closes itself (since it's done).

Kind of like:

Option Explicit
Sub auto_open()
Application.Calculation = xlCalculationManual
Workbooks.Open Filename:="c:\my documents\excel\book2.xls"
ThisWorkbook.Close savechanges:=False
End Sub

Randy wrote:

That's what I currently do. I was just hoping there was something
programatically that could be done.

Thanks!

"Dave Peterson" wrote:

Open excel with a blank (new) workbook.
Change the calculation mode
file|open your workbook



Randy wrote:

Makes sense but I have not been able to figure out how. Any help would be
appreciated.

Thanks!

"Jim Rech" wrote:

If a workbook needs to be calced and calc mode is automatic Excel will calc
it upon opening it before startup macros run. So setting calc mode to
manual in Sub Workbook_Open is too late. Set it to manual before opening.

--
Jim
"Randy" wrote in message
...
I have the following macro that works great upon exiting my workbook but
how
can I modify it to prevent calculations from running whenever someone
opens
it? There are so many formulas and so much data on each sheet that if we
don't calculate each sheet manually, then we have to end task on Excel
because it will not complete the calculations.

Thanks!

Randy

Private Sub Workbook_Open()

With Application
.Calculation = xlManual
.CalculateBeforeSave = False
End With

End Sub



--

Dave Peterson


--

Dave Peterson