Pied de page indélébile

[life]

Bonjour à tous le forum,

est-il possible, dans un classeur avec une macro d'insérer un pied de page (ou une entête) impossible à modifier?

Merci et tous mes voeux à tous

life

 

[john]

Salut,

Pour insérer un pied de page ou une entête pas de problème par macro, par contre pour ce qui est la modification de ceux-ci je ne vois pas comment tu pourrais empêcher la modification à part empêcher l'accès à la modification de la mise en page en bloquant le menu (mais ça je ne sais pas comment le faire).

Enfin voici le code pour modifier le pied de page par macro. Si tu veux tu le places dans la partie workbook open comme ça à chaque fois qu'on ouvre le classeur le pied de page est ré-initialisé au cas où quelqu'un l'aurai changé.

With ActiveSheet.PageSetup
.PrintTitleRows = ''
.PrintTitleColumns = ''
End With
ActiveSheet.PageSetup.PrintArea = ''
With ActiveSheet.PageSetup
.LeftHeader = '' 'ici tu mets ce que tu veux pour l'entête de la page
.CenterHeader = '(C) 2006 - FERY John' 'ici tu mets ce que tu veux pour l'entête de la page
.RightHeader = '' 'ici tu mets ce que tu veux pour l'entête de la page
.LeftFooter = '' 'ici tu mets ce que tu veux pour le pied de page
.CenterFooter = '(C) 2006 - FERY John' 'ici tu mets ce que tu veux pour le pied de page
.RightFooter = '' 'ici tu mets ce que tu veux pour le pied de page
.LeftMargin = Application.InchesToPoints(0.787401575)
.RightMargin = Application.InchesToPoints(0.787401575)
.TopMargin = Application.InchesToPoints(0.984251969)
.BottomMargin = Application.InchesToPoints(0.984251969)
.HeaderMargin = Application.InchesToPoints(0.4921259845)
.FooterMargin = Application.InchesToPoints(0.4921259845)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 300
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
End With

Voilà j'espère que ça pourra t'aider.

Bonne journée.

John

Message édité par: john, à: 07/01/2006 13:15

 

[life]

Bonsoir John & tous le forum,

Merci pour le code et l'info, ceci résoud en parti mon problème mais je crois que je vais faire différemment.

Ps: Très bien le site!

Bonne soirée à tous

Live