Skrivebeskyttelse af sidehoved og sidefod i Excel 07

Det tror jeg ikke at man kan. Hverken Beskyt ark eller Beskyt projektmappe omfatter sidehoved og sidefod.

Du kan dog lave en makro, som afspilles inden udskrift, og som sikrer, at uanset, hvad der er blevet rettet i sidehoved og sidefod, bliver det sat til det, du vil have.

Øv, det syntes jeg heller ikke jeg kunne finde, men tak for hjælpen. Hvordan sætter man makroen til at afspille automatisk? Hvis du sender et svar så kan jeg vist give dig dine point (er ny herinde).

Vis Udvilkerfanen, hvis den ikker vist. Klik på Visual Basic. Dobbeltkik på ThisWorkbook og indsæt denne kode:

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

Melllem anførstelstegnene skriver du, hvad der skal stå i sidehoved/-fod. Skal der ingenting stå, kan du slette den pågældende linje eller alde anførstelestegnene stå ugen noget mellem.

Tak, kan det låses i VB eller hænger det sammen med en generel låsning af projektmappen? Og hvordan låser man den, så den kun kan åbnes med en kode?

Husk at sende det som et svar, så giver jeg 30 point.. :-)

Hej jkrons

Jeg skylder dig også nogle point for denne.

Et svar.

Når jeg accepterer dit svar skriver den "spørgsmål ikke fundet". Kan jeg give dig point på en anden måde.

Nå nu virkede den fordi jeg skrev...??? Alt i orden, men jeg ville som sagt gerne tildele dig nogle flere point, som tak for din hjælp. Kan jeg det?

Det behøver du såmænd ikke :-)

OK, endnu en gang tak for hjælpen.

Hej igen jkrons.

Kan du evt. hjælpe mig med at sætte skriftstørrelsen og indsætte side nr., dato og klokkeslet i den VB?

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