Làm cách nào để bảo vệ đầu trang và chân trang trong Excel?
Trong Excel, chúng ta có thể bảo vệ các ô một cách nhanh chóng và dễ dàng, nhưng, bạn đã bao giờ cố gắng bảo vệ đầu trang và chân trang để ngăn người khác sửa đổi chúng chưa? Thông thường, không có cách nào trực tiếp để giải quyết tác vụ này trong trang tính, nhưng, mã VBA sau đây có thể giúp bạn.
Bảo vệ đầu trang và chân trang bằng mã VBA
Bảo vệ đầu trang và chân trang bằng mã VBA
Đầu trang và chân trang hữu ích cho chúng tôi khi in trang tính, để tránh việc người khác thay đổi chúng, vui lòng thực hiện theo các bước sau:
1. Giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. Sau đó nhấp đúp vào Sổ làm việc này theo dự án VBA để mở một mô-đun trống, sau đó sao chép và dán mã sau vào mô-đun:
Mã VBA: Bảo vệ đầu trang và chân trang
Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Call ProtectHF
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call ProtectHF
End Sub
Private Sub Workbook_Open()
Call ProtectHF
End Sub
Private Sub ProtectHF()
'Updateby Extendoffice
Application.ScreenUpdating = False
ThisWorkbook.ActiveSheet.PageSetup.RightHeader = ""
ThisWorkbook.ActiveSheet.PageSetup.RightFooter = ""
ThisWorkbook.ActiveSheet.PageSetup.CenterFooter = "KTE-Sale-Report"
ThisWorkbook.ActiveSheet.PageSetup.CenterHeader = "Created by Skyyang"
ThisWorkbook.ActiveSheet.PageSetup.LeftHeader = ""
ThisWorkbook.ActiveSheet.PageSetup.LeftFooter = ""
Application.ScreenUpdating = True
End Sub
Chú thích: Bạn có thể chèn nội dung đầu trang hoặc chân trang vào vị trí tương ứng trong đoạn mã trên.
3. Và sau đó lưu và đóng mã này ngay bây giờ, trong khi nhấp vào Lưu để lưu sổ làm việc này, nội dung đầu trang hoặc chân trang đã sửa đổi sẽ tự động trở lại nội dung ban đầu nếu bạn đã cố gắng thay đổi đầu trang hoặc chân trang, xem ảnh chụp màn hình:
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
- Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
- Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
