Application VisualBasic Script

Sub appProperty()
    Application.Calculation = xlManual
    Application.EditDirectlyInCell = False
    Application.DefaultFilePath = "C:\My Documents"
    
End Sub