Hello Levi & Welcome to the Forum,
You would have to use code...
Something like this placed in the ThisWorkbook module
Code:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Sheet1").Range("A1").Value = Now
End Sub
http://www.rondebruin.nl/win/code.htm