Πώς να προστατεύσετε την κεφαλίδα και το υποσέλιδο στο Excel;
Στο Excel, μπορούμε να προστατεύσουμε τα κελιά γρήγορα και εύκολα, αλλά, έχετε προσπαθήσει ποτέ να προστατεύσετε την κεφαλίδα και το υποσέλιδο για να αποτρέψετε την τροποποίησή τους από άλλους; Κανονικά, δεν υπάρχει άμεσος τρόπος επίλυσης αυτής της εργασίας στο φύλλο εργασίας, αλλά, ο ακόλουθος κώδικας VBA μπορεί να σας βοηθήσει.
Προστατέψτε την κεφαλίδα και το υποσέλιδο με τον κωδικό VBA
Προστατέψτε την κεφαλίδα και το υποσέλιδο με τον κωδικό VBA
Η κεφαλίδα και το υποσέλιδο είναι χρήσιμα για εμάς κατά την εκτύπωση φύλλου εργασίας, για να αποτρέψετε την αλλαγή τους από άλλους, ακολουθήστε τα παρακάτω βήματα:
1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Στη συνέχεια, κάντε διπλό κλικ Αυτό το βιβλίο εργασίας σύμφωνα με το VBAProject ενότητα για να ανοίξετε μια κενή λειτουργική μονάδα και, στη συνέχεια, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα στη λειτουργική μονάδα:
Κωδικός VBA: Προστατέψτε την κεφαλίδα και το υποσέλιδο
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: Μπορείτε να εισαγάγετε το περιεχόμενο κεφαλίδας ή υποσέλιδου στην αντίστοιχη θέση στον παραπάνω κώδικα.
3. Και, στη συνέχεια, αποθηκεύστε και κλείστε αυτόν τον κωδικό, τώρα, κάνοντας κλικ Αποθήκευση κουμπί για να αποθηκεύσετε αυτό το βιβλίο εργασίας, το τροποποιημένο περιεχόμενο κεφαλίδας ή υποσέλιδου θα επιστρέψει αυτόματα στα αρχικά, εάν έχετε προσπαθήσει να αλλάξετε την κεφαλίδα ή το υποσέλιδο, δείτε το στιγμιότυπο οθόνης:
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!