VBA to save without calculating

[Kappy]

hi all,

Sometimes while working in large files I like to save the file without it calculating..

Currently I just press save, then escape, and select the option to save without calculating

I'd like to write a quick macro that can do this but am completely stumped as to how..

any ideas?

thanks

 

[AlphaFrog]

Try this...

[color=darkblue]Sub[/color] Save_without_Calculating()
    Application.CalculateBeforeSave = [color=darkblue]False[/color]
    ThisWorkbook.Save
    Application.CalculateBeforeSave = [color=darkblue]True[/color]
[color=darkblue]End[/color] [color=darkblue]Sub[/color]

 

[Kappy]

perfect. thank you!

 

[lukechr]

I had the same issue. I added this to the workbook and it works great:

Option Explicit

'when you open the workbook, switches calculation to manual

Private Sub Workbook_Open()     
     Application.Calculation = xlManual
End Sub


'when you click save, turn off Calculate Before Save
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 
     Application.CalculateBeforeSave = False
End Sub

'after the save, switch back to normal
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
     Application.CalculateBeforeSave = True
End Sub