Khóa Header and Footer (1 người xem)

[trungnt]

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 !!!!!!!!!

 

[transongngocquan]

Bạn thử để password chỉ đọc trong excel đi là mọi người không thể thay đổi được header và footer của bạn đâu, tôi cũng làm như vậy đó. Mọi người chỉ xem được chứ không sữa được.

Ngoài ra nếu như muốn cho người khác đưa dữ liệu vào file của bản thì bạn đặt sự kiện trước khi lưu sẽ trả về dử liệu củ header và footer của bạn.

 

[tedaynui]

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 !!!!!!!!!

Mình nghĩ, Protectsheet hay ProtectWorkbook cũng không khoá được chắc bạn phải dùng tới VBA thôi. Bằng cách mỗi khi mở / đóng / trước khi in... thì nó tự động trả lại header - footer về "mặc định".

TDN

 

[trungnt]

Tôi đã làm thử theo cách mà 2 a đã viết nhưng vẫn o ăn thua, người khác vẫn vào sửa được. Hai a và các anh chị có cách nào khác chỉ giúp tôi với, thanks!!!!!

 

[chibi]

Nếu bạn thực hiện

mỗi khi mở / đóng / trước khi in... thì nó tự động trả lại header - footer về "mặc định"

thì dù

người khác vẫn vào sửa được

khi in nó vẫn cho kết quả như mong muốn.

 

[trungnt]

Chibi có thể diễn đạt cụ thể hơn được không? Tôi vẫn chưa hiểu ý của a (thông cảm nhé vì trình độ của tôi còn ABC lắm)

 

[chibi]

Đâ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 Sub

 

[Mr Okebab]

Đâ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 Sub

Nên xóa sạch các định dạng Footer khác trước khi Add cái của mình vào thì sẽ đảm bảo sự đồng nhất bác ạ.

Thân!

 

[CPH]

Các anh chị cho em hỏi trong sheet của em có 10 trang, trong đó có 1 trang em ko muốn có header and footer thì làm cách nào?
Mong chỉ giáo!

 

[chuot0106]

Nên xóa sạch các định dạng Footer khác trước khi Add cái của mình vào thì sẽ đảm bảo sự đồng nhất bác ạ.

Thân!

Mình đã làm như bạn nhưng khi sửa Footer thì khi in ra nó lại cho ra cái footer đã sửa bạn ạ.

 

[Quang_Hải]

Mình đã làm như bạn nhưng khi sửa Footer thì khi in ra nó lại cho ra cái footer đã sửa bạn ạ.

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

 

[chuot0106]

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

Cảm ơn anh Hải nhiều. Em sẽ thử ngay ạ!

 

[chuot0106]

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

Em làm thử rồi anh ạ. Đúng là người dùng khác không sửa được footer nhưng khi chèn footer vào nó không được thẳng lắm anh ạ. Mong các anh chị khắc phục giúp.

 

[chuot0106]

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

Cảm ơn anh Quang Hải nhiều lắm! Em đã khắc phục được lỗi trên rồi ạ!