如何在Excel工作表中添加最后保存時間

有時我們在Excel中制作的工作表需要反復修改，并保存為多個版本。修改的次數(shù)多了，很容易混淆。如果能把工作簿的最后保存日期和時間顯示在工作表的某個單元格或頁眉頁腳中，查看起來就非常方便了。用VBA代碼就能夠輕松地實現(xiàn)這一點，方法如下：

1.按Alt+F11，打開VBA編輯器。

2.在“工程”窗口中，雙擊“ThisWorkBook”，在右側的代碼窗口中輸入下列代碼：

Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveSheet.Range("G3").Value = Format(Now, "yyyy年m月d日 hh:mm:ss")
End Sub

說明：上述代碼將工作簿保存的日期和時間保存在活動工作表的“G3”單元格中，需根據(jù)實際進行修改。如果要將保存的時間放到頁眉或頁腳中，可以改為類似下面的代碼，下例中將工作簿的保存日期和時間放到頁腳右側：

Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveSheet.PageSetup.RightFooter = "修改時間：" & Format(Now, "yyyy年m月d日 hh:mm:ss")
End Sub

3.關閉VBA編輯器，回到Excel界面中。以后每次單擊工具欄中的“保存”按鈕，G3單元格或頁眉頁腳中就會顯示當前保存的日期和時間。