Excel VBA - ＆gt;上次日期/时间保存+自动更新

Question

我有excel文档和工作表名称：概述

因为很多人修改了这个工作簿，我想添加B1单元用户ID（计算机名称）+日期/时间（所以最后修改工作表和日期的人以及发生这种情况的时间）

我打开宏工具（alt + F11） - ＆gt;我第一次使用它：

1。创建新模块并添加代码：

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

2。点击Macro内侧左侧...“Thisworkbook”并添加以下代码：

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

我做错了，在显示“12.11.2013 18:35:14”的B1单元格中表现优异（我在这个单元格中使用：= LastSaveDate（））也显示正确的日期和时间，但是当我保存时（如启用宏文件）并重新打开，只显示“”12.11.2013 0:00:00“，此单元格B1中没有代码。

Answer 1

您的Workbook_Open()宏会覆盖您在单元格B1中添加的公式：=LastSaveDate()当前日期。

要防止这种情况，您需要删除该宏或注释掉该行：

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