¿Cómo proteger el encabezado y pie de página en Excel?
En Excel, podemos proteger las celdas de forma rápida y sencilla, pero ¿alguna vez ha intentado proteger el encabezado y el pie de página para evitar que otros los modifiquen? Normalmente, no hay una forma directa de resolver esta tarea en la hoja de trabajo, pero el siguiente código VBA puede hacerle un favor.
Proteja el encabezado y pie de página con código VBA
Proteja el encabezado y pie de página con código VBA
El encabezado y el pie de página son útiles para nosotros cuando imprimimos la hoja de trabajo, para evitar que otros los cambien, siga los siguientes pasos:
1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. Luego haga doble clic ThisWorkbook bajo el Proyecto VBA sección para abrir un módulo en blanco, y luego copie y pegue el siguiente código en el módulo:
Código VBA: proteger encabezado y pie de página
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: Puede insertar el contenido del encabezado o pie de página en la ubicación correspondiente en el código anterior.
3. Y luego guarde y cierre este código, ahora, mientras hace clic Guardar para guardar este libro de trabajo, el contenido del encabezado o pie de página modificado volverá a los originales automáticamente si ha intentado cambiar el encabezado o pie de página, vea la captura de pantalla:
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!