Khóa Header and Footer
!!!!!!!!!
Hiện nay, tôi có 1 bảng tính mà trên mỗi sheet đều có dùng header và footer. Tôi muốn không cho người khác sửa chữa header và footer của mình nhưng đến nay tôi viết code chưa được. Rất mong các anh chị trên diễn đàn chỉ giúp, xin cảm ơn rất nhiều !!!!!!!!!
Đây là 1 ví dụ, khi in thì Sheet1 luôn có Footer là "GPE" nằm ở vị trí giữa
Private Sub Workbook_BeforePrint(Cancel As Boolean)
With Sheet1
.PageSetup.CenterFooter = "GPE"
End With
End Subwww.giaiphapexcel.com/diendan/threads/kh%C3%B3a-header-and-footer.11285/
Khóa học SprinGO phù hợp
Xây dựng Lương 3P, KPI cho Doanh nghiệp
Làm thế nào để trả lương cho nhân viên chính xác nhất? Đây là một trong những câu hỏi khó trong quản trị nhân...
Xem khóa học
Bạn thử copy code này bỏ vào trong ThisWorkBook rồi in thử xem sao
Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet
.PageSetup.CenterHeader = "AAA"
.PageSetup.CenterFooter = "BBB"
End With
End Sub