添加文件版本Excel VBA

每当文件发生变化时，我想在单元格P76中添加和更改文件版本。 我试过这个function，但它显示Excel版本，它不会改变

Function ExcelVersion() ExcelVersion = Application.Version End Function 

并在单元格P76（Sheet2）

 =ExcelVersion() 

我希望它显示像VERSION 001和每次（工作表2）更改更改为下一个例如版本001至版本002等等和单元格P77（Sheet2）更新的date和时间。

我也尝试添加这个

  Private Sub submit_Click() Dim i As Integer i = 1 Cells(P76).value = "VERSION 00" & i + 1 End Sub 

但不工作

Answer 1

将其放置在“ThisWorkbook”中。 它会添加没有“版本”string的版本号。 我会build议在相邻的单元格中添加“版本”，以保持简单。

 Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Sheets("Sheet2").Range("P76").Value = Sheets("Sheet2").Range("P76").Value + 1 Sheets("Sheet2").Range("P77").Value = Now End Sub 

如果你需要“版本”与数字本身在同一个单元格中，评论和我将编辑我的反应，以反映该function。

此外，这不会阻止用户编辑版本号，时间等，只是你知道。