Excel VBA->最后日期/時間保存+自動更新

Question

我有excel文件和工作表名稱：概述

因為很多人都在修改此工作簿，所以我想添加B1單元用戶ID（計算機名）+日期/時間（所以最后修改表單的人以及發生這種情況的日期和時間）

我打開宏工具（alt + F11）->第一次使用它：

1.創建新模塊並添加代碼：

Function LastSaveDate()
 Application.Volatile True
 LastSaveDate = FileDateTime(ThisWorkbook.FullName)  
End Function

2.單擊宏...“ Thisworkbook”內部的左側，並添加以下代碼：

 Private Sub Workbook_Open() MsgBox Date Worksheets("Overview").Range("B1").Value = Date End Sub 

我做錯了，在B1單元格中顯示“ 12.11.2013 18:35:14”（我在此單元格中使用：= LastSaveDate（））也顯示了正確的日期和時間，但是當我保存時（作為啟用的宏文檔） ）並重新打開，只顯示““ 12.11.2013 0:00:00”，此單元格B1中沒有代碼。

Answer 1

您的Workbook_Open()宏將使用當前日期覆蓋您放入單元格B1中的公式： =LastSaveDate() 。

為防止這種情況，您需要刪除該宏或在該行中注釋掉：

Worksheets("Overview").Range("B1").Value = Date