Private Sub Workbook_BeforeClose(Cancel As Boolean)
With ThisWorkbook.BuiltinDocumentProperties("Revision number")
.Value = .Value + 1
End With
....................................
Private Sub Workbook_Open()
With ThisWorkbook.BuiltinDocumentProperties("Revision number")
If .Value = 30 Then
..................................
End If
End With
................................