how to protect header & footer

[Guest]

Can somebody tell me how I can protect the contents of Header & Footer ?
Many thanks.

 

[dominicb]

Food afternoon Francois

As regulars to these groups are aware, securely protecting contents of
Excel spreadsheets is impossible. However the code below will not
prevent users from changing the headers, but will reset the headers /
footers to what you decide prior to printing.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
..LeftHeader = "header"
..CenterHeader = ""
..RightHeader = ""
..LeftFooter = "footer"
..CenterFooter = ""
..RightFooter = ""
End With
End Sub

Place your headers / footers between the quotes above, empty quotes
will remove any header or footer that has been inserted. As the
procedure uses events it needs placing in the ThisWorkbook pane of the
VBE.

HTH

DominicB

 

[Ron de Bruin]

Tip :

Better change all sheets because it is possible that the user have more sheets selected

Here a example
http://www.rondebruin.nl/print.htm#Saved

 

[Guest]

Thanks for your answer. I was aware of the event beforeprint, but settings
the header and footer is a very slow process in Excel. Therefore I would have
prefer to disable access to footer and header.
Anyway Thanks.