Como posso definir o mesmo cabeçalho / rodapé para todas as planilhas, incluindo as novas?

Question

Cada hit do google para aplicar o mesmo cabeçalho diz para destacar todas as folhas e definir um cabeçalho. Como posso garantir que novas folhas adicionadas também obtenham o mesmo cabeçalho, sem sempre

    

Answer 1

Como primeira tentativa, usaria este evento:

Private Sub Workbook_NewSheet(ByVal Sh As Object)
   sh.range("A1").value = "xxx"
End Sub

você teria que adicionar essa macro à sua pasta de trabalho, não a uma planilha, não como um módulo ou uma classe.

Outra maneira pode ser o uso de um suplemento, projetado para isso - isso seria para o propósito de ter esse comportamento em todas as pastas de trabalho.

    

Answer 2

Aqui está o código do VBA para copiar o cabeçalho e o rodapé da primeira folha para a nova folha. Insira isto em ThisWorkbook no VBA Explorer ( Alt + F11 ) e salve-o. Ele será executado quando você adicionar uma nova planilha.

Ajuste a quarta linha, onde se lê Sheet1 , para ser o nome da sua primeira planilha.

Private Sub Workbook_NewSheet(ByVal Sh As Object)
   Dim Ws As Worksheet
   'Change "Sheet1" below to the name of sheet being copied
   Set Setup = Worksheets("Sheet1").PageSetup
    With ActiveSheet.PageSetup
     .LeftHeader = Setup.LeftHeader
     .CenterHeader = Setup.CenterHeader
     .RightHeader = Setup.RightHeader
     .LeftFooter = Setup.LeftFooter
     .CenterFooter = Setup.CenterFooter
     .RightFooter = Setup.RightFooter
     End With
End Sub

Se você quiser executá-lo manualmente, altere a primeira linha para

Sub CopyHeaderFooter()

Ele então aparecerá como uma macro executável ( Alt + F8 ), chamada CopyHeaderFooter que você pode executar quando quiser.