Como proteger o cabeçalho e o rodapé no Excel?
No Excel, podemos proteger as células de forma rápida e fácil, mas, você já tentou proteger o cabeçalho e o rodapé para evitar que outras pessoas os modifiquem? Normalmente, não há uma maneira direta de resolver essa tarefa na planilha, mas o código VBA a seguir pode lhe fazer um favor.
Proteja o cabeçalho e o rodapé com o código VBA
Proteja o cabeçalho e o rodapé com o código VBA
Cabeçalho e rodapé são úteis para nós ao imprimir planilhas, para evitar que sejam alterados por outras pessoas, siga as seguintes etapas:
1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. Em seguida, clique duas vezes Esta pasta de trabalho sob a Projeto VBA seção para abrir um módulo em branco e, em seguida, copie e cole o seguinte código no módulo:
Código VBA: Proteger cabeçalho e rodapé
Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Call ProtectHF
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call ProtectHF
End Sub
Private Sub Workbook_Open()
Call ProtectHF
End Sub
Private Sub ProtectHF()
'Updateby Extendoffice
Application.ScreenUpdating = False
ThisWorkbook.ActiveSheet.PageSetup.RightHeader = ""
ThisWorkbook.ActiveSheet.PageSetup.RightFooter = ""
ThisWorkbook.ActiveSheet.PageSetup.CenterFooter = "KTE-Sale-Report"
ThisWorkbook.ActiveSheet.PageSetup.CenterHeader = "Created by Skyyang"
ThisWorkbook.ActiveSheet.PageSetup.LeftHeader = ""
ThisWorkbook.ActiveSheet.PageSetup.LeftFooter = ""
Application.ScreenUpdating = True
End Sub
Note: Você pode inserir o conteúdo do cabeçalho ou rodapé no local correspondente no código acima.
3. E então salve e feche este código, agora, enquanto clica Salvar botão para salvar esta pasta de trabalho, o conteúdo modificado do cabeçalho ou rodapé retornará aos originais automaticamente se você tiver tentado alterar o cabeçalho ou rodapé, consulte a captura de tela:
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!