Добавление версии файла Excel VBA

Question

Я хочу добавить и изменить версию файла в ячейке P76 каждый раз, когда происходит изменение файла. я попробовал эту функцию, но она показывает версию Excel, и не меняется

Function ExcelVersion() 
ExcelVersion = Application.Version 
End Function 

и в ячейке Р76 (Лист2)

=ExcelVersion() 

Я хочу, чтобы показать, как ВЕРСИИ 001, и каждый раз (Лист2) обновление изменения, которое оно изменит, следующим образом: VERSION 001 - VERSION 002 и т. д. и в ячейке P77 (Sheet2). Даты и время обновления.

Я также пытаюсь добавить

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

но не работает

Answer 1

Место это в "ThisWorkbook". Он добавит номер версии без строки «Версия». Я бы рекомендовал добавить «Версию» в соседнюю ячейку, чтобы она была простой.

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 

Если вам нужно «версия», чтобы быть в той же камере, что и само число, комментарии, и я буду редактировать свой ответ, чтобы отразить эту функциональность.

Кроме того, это не помешает пользователям редактировать номер версии, время и т. Д., Чтобы вы знали.