Bagaimana cara melindungi header dan footer di Excel?
Di Excel, kita dapat melindungi sel dengan cepat dan mudah, tetapi, pernahkah Anda mencoba melindungi header dan footer untuk mencegah orang lain memodifikasinya? Biasanya, tidak ada cara langsung untuk menyelesaikan tugas ini di lembar kerja, tetapi, kode VBA berikut mungkin membantu Anda.
Lindungi header dan footer dengan kode VBA
Lindungi header dan footer dengan kode VBA
Header dan footer berguna untuk kita saat mencetak lembar kerja, agar tidak diubah oleh orang lain, lakukan dengan langkah-langkah berikut:
1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Lalu klik dua kali Buku Kerja Ini bawah Proyek VBA bagian untuk membuka modul kosong, lalu salin dan tempel kode berikut ke dalam modul:
Kode VBA: Lindungi header dan footer
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: Anda dapat memasukkan konten header atau footer ke lokasi yang sesuai pada kode di atas.
3. Dan kemudian simpan dan tutup kode ini, sekarang, sambil mengklik Save tombol untuk menyimpan buku kerja ini, konten header atau footer yang dimodifikasi akan dikembalikan ke aslinya secara otomatis jika Anda telah mencoba mengubah header atau footer, lihat tangkapan layar:
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!