Là một phần của việc thiết lập trang tính, bạn có thể muốn đầu trang hoặc chân trang chứa ngày sổ làm việc được chỉnh sửa lần cuối. Excel không duy trì thông tin này, nhưng nó cho phép bạn thực hiện macro bất cứ khi nào xảy ra các sự kiện nhất định, chẳng hạn như các thay đổi đối với sổ làm việc. Tất cả những gì bạn cần làm là thêm một macro như sau vào đối tượng ThisWorkbook trong VBA Editor:

Private Sub Workbook_SheetChange(ByVal _   Sh As Object, ByVal Target As Excel.Range)

ActiveSheet.PageSetup.CenterFooter = _       "Worksheet Last Changed: " & _       Format(Now, "mmmm d, yyyy hh:mm")

End Sub

Kết quả macro là mỗi chân trang trên mỗi trang tính trong sổ làm việc có ngày và giờ riêng biệt trên chúng, vì mỗi trang tính sẽ được cập nhật vào những thời điểm khác nhau. Bạn có thể thay đổi thuộc tính đích (.CenterFooter) thành một trong các thuộc tính đầu trang hoặc chân trang khác (.LeftHeader, .CenterHeader, .RightHeader, .LeftFooter, .RightFooter) như mong muốn.

Thay vào đó, bạn có thể muốn đầu trang hoặc chân trang bao gồm ngày sổ làm việc được lưu lần cuối. (Đây là thông tin mà nhiều người thực sự coi là “ngày chỉnh sửa cuối cùng”.) Thông tin hiển thị trong hộp thoại Thuộc tính cho một trang tính, nhưng Excel không có lựa chọn menu hoặc lệnh khác cho phép bạn chèn ngày này vào tiêu đề hoặc chân trang. Thay vào đó, bạn phải sử dụng macro để thêm thông tin mong muốn.

Cách tốt nhất để hoàn thành nhiệm vụ là thêm macro vào đối tượng ThisWorkbook được kích hoạt ngay trước khi sổ làm việc được lưu:

Private Sub Workbook_BeforeSave(ByVal _   SaveAsUI As Boolean, Cancel As Boolean)

Dim sht     For Each sht In Sheets         sht.PageSetup.CenterFooter = _           "Workbook Last Saved: " & _           Format(Now, "mmmm d, yyyy hh:mm")

Next End Sub

Macro này bước qua từng trang tính trong sổ làm việc và thay đổi mọi chân trang ở giữa để có ngày sổ làm việc được lưu.

ExcelTips là nguồn của bạn để đào tạo Microsoft Excel hiệu quả về chi phí.

Mẹo này (11604) áp dụng cho Microsoft Excel 2007, 2010, 2013 và 2016.