I have a spreadsheet that includes tables, and lots of
opening and hiding of rows. The spreadsheet works fine if
the Calculation settings are set to
xlCalculationSemiautomatic.

However if a user has its machine set at
xlCalculationAutomatic I want to change this before he
starts working with the spreadsheet. I have used the
following code, the change works, but it stills triggers
50 calculations (two 5 x 5 tables). The same happens when
the sheet is being saved. Any way around this problem?

I'm using Excel 2003

Private Sub Workbook_Open()

Application.EnableEvents = False
Application.Calculation = xlCalculationSemiautomatic
Application.EnableEvents = True

End Sub

Thanks in advance,

Urban

Try Application.Calculation = xlCalculationManual

Regards
BrianB
==============================

"Urban" wrote in message ...
I have a spreadsheet that includes tables, and lots of
opening and hiding of rows. The spreadsheet works fine if
the Calculation settings are set to
xlCalculationSemiautomatic.

However if a user has its machine set at
xlCalculationAutomatic I want to change this before he
starts working with the spreadsheet. I have used the
following code, the change works, but it stills triggers
50 calculations (two 5 x 5 tables). The same happens when
the sheet is being saved. Any way around this problem?

I'm using Excel 2003

Private Sub Workbook_Open()

Application.EnableEvents = False
Application.Calculation = xlCalculationSemiautomatic
Application.EnableEvents = True

End Sub

Thanks in advance,

Urban

Thanks, this does not change the problem it still goes
arround the 50 times.

Urban

-----Original Message-----
Try Application.Calculation = xlCalculationManual

Regards
BrianB
==============================

"Urban" wrote in
message ...
I have a spreadsheet that includes tables, and lots of
opening and hiding of rows. The spreadsheet works fine
if
the Calculation settings are set to
xlCalculationSemiautomatic.

However if a user has its machine set at
xlCalculationAutomatic I want to change this before he
starts working with the spreadsheet. I have used the
following code, the change works, but it stills
triggers
50 calculations (two 5 x 5 tables). The same happens
when
the sheet is being saved. Any way around this problem?

I'm using Excel 2003

Private Sub Workbook_Open()

Application.EnableEvents = False
Application.Calculation = xlCalculationSemiautomatic
Application.EnableEvents = True

End Sub

Thanks in advance,

Urban
.

Urban wrote:
The same happens when
the sheet is being saved. Any way around this problem?


Why not clear the tables' formulas before saving and set them up again
on opening, after setting the calculation mode.

Of course the tables will need calculating before you see the results,
so you may not have gained anything....

Bill Manville
MVP - Microsoft Excel, Oxford, England
No email replies please - reply in newsgroup