Application.MultiThreadedCalculation.Enabled = True
 Application.AutoRecover.Time = 7
 Application.EnableEvents = True


Sub p_setExcelCalcOff()
    vCurrQueryTime = Timer
    Application.ScreenUpdating = False
    Application.DisplayStatusBar = False
    Application.Calculation = xlCalculationManual
    Application.EnableEvents = False
    ActiveSheet.DisplayPageBreaks = False
    ActiveSheet.UsedRange.EntireRow.Hidden = False
End Sub

Sub p_setExcelCalcOn()
    ActiveSheet.UsedRange.Select
    Selection.NumberFormat = "#,##0.00"
    ActiveSheet.Cells(1, 1).Select
    Application.ScreenUpdating = True
    Application.DisplayStatusBar = True
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True
    ActiveSheet.DisplayPageBreaks = True
    ActiveSheet.UsedRange.EntireRow.Hidden = False
    Call p_WriteStatusBarTime
End Sub

Sub p_WriteStatusBarTime()
 vCurrQueryTime = Format(Timer - vCurrQueryTime, "Fixed")
 
Application.StatusBar = "We are done! Exec Time :" & vCurrQueryTime & " sec "
Application.OnTime Now + TimeSerial(0, 0, 90), "p_ClearStatusBar"
End Sub

Sub p_ClearStatusBar()
    Application.StatusBar = False
End Sub