更新日期的代碼

A. EXCEL 自動更新保存日期

我試過沒問題呀，要不你在修改頁腳後再加一句保存的代碼看看：
Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveSheet.PageSetup.LeftFooter = "修改時間：" & Format(Now, "yyyy年m月d日 hh:mm:ss")
ThisWorkbook.Save
End Sub