1: 2: 3: 4: 5:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Sheet1.Unprotect Cells(1, 1).Value = Now() Sheet1.Protect End Sub