Không cho thay đổi Header and Footer (1 người xem)

[chuot0106]

Tôi có 1 File Excell, ở File này tôi có chèn Haerder và Footer cùng 1 nội dung, ví dụ "Tôi muốn cố định nội dung này". Tôi muốn nhờ các thành viên trên GPE viết giúp đoạn code thực hiện công việc sau với ạ: Vẫn cho phép người khác thay đổi nội dung của Haerder và Footer nhưng sau khi thay đổi xong nếu thực hiện lệnh in các trang của File đó ra thì nó lại in ra nội dung của Haerder và Footer tôi đã chèn ban đầu. Mong các thầy, các anh chị và các bạn giúp đỡ ạ!

 

[ndu96081631]

Tôi có 1 File Excell, ở File này tôi có chèn Haerder và Footer cùng 1 nội dung, ví dụ "Tôi muốn cố định nội dung này". Tôi muốn nhờ các thành viên trên GPE viết giúp đoạn code thực hiện công việc sau với ạ: Vẫn cho phép người khác thay đổi nội dung của Haerder và Footer nhưng sau khi thay đổi xong nếu thực hiện lệnh in các trang của File đó ra thì nó lại in ra nội dung của Haerder và Footer tôi đã chèn ban đầu. Mong các thầy, các anh chị và các bạn giúp đỡ ạ!

Dùng sự kiện xem:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
  With ActiveSheet.PageSetup
    .LeftHeader = ""
    .CenterHeader = "[COLOR=#ff0000]Noi dung cua Header[/COLOR]"
    .RightHeader = ""
    .LeftFooter = ""
    .CenterFooter = "[COLOR=#ff0000]Noi dung cua Footer[/COLOR]"
    .RightFooter = ""
  End With
End Sub

Chỗ màu đỏ bạn thay đổi tùy ý

 

[ptm0412]

Không cho thay đổi Hearder and Footer

Tôi có 1 File Excell, ở File này tôi có chèn Haerder và Footer cùng 1 nội dung,
... nó lại in ra nội dung của Haerder và Footer tôi đã chèn ban đầu.

Header, chứ không phải 3 chữ đỏ đỏ nhé.

 

[chuot0106]

Dùng sự kiện xem:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
  With ActiveSheet.PageSetup
    .LeftHeader = ""
    .CenterHeader = "[COLOR=#ff0000]Noi dung cua Header[/COLOR]"
    .RightHeader = ""
    .LeftFooter = ""
    .CenterFooter = "[COLOR=#ff0000]Noi dung cua Footer[/COLOR]"
    .RightFooter = ""
  End With
End Sub

Chỗ màu đỏ bạn thay đổi tùy ý

Em đã Test thử rồi thầy ạ, code chạy rất tốt! Em cảm ơn thầy!