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

Question

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

Answer 1

Como primeira tentativa eu ​​usaria este evento:

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

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

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

Answer 2

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

Ajuste a 4ª 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()

Em seguida, ela aparecerá como uma macro executável ( Alt+ F8), chamada que CopyHeaderFootervocê pode executar quando quiser.