Bagaimana cara melindungi semua lembar kerja secara otomatis saat menutup buku kerja Excel?
Biasanya, Anda bisa secara manual memproteksi lembar kerja atau seluruh buku kerja dengan kata sandi dengan fitur Proteksi Lembar atau Proteksi Buku Kerja di Excel. Tetapi jika Anda ingin melindungi semua lembar kerja secara otomatis dengan kata sandi saat buku kerja ditutup, apa yang dapat Anda lakukan? Artikel ini akan menunjukkan kepada Anda metode VBA untuk mencapainya.
Lindungi semua lembar kerja saat menutup buku kerja Excel dengan kode VBA
Lindungi semua lembar kerja saat menutup buku kerja Excel dengan kode VBA
Untuk secara otomatis melindungi semua lembar kerja saat menutup buku kerja, harap terapkan kode VBA berikut.
1. Di buku kerja Anda ingin melindungi semua lembar kerja saat menutup file, silakan tekan lain + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Dalam Microsoft Visual Basic untuk Aplikasi jendela, klik dua kali file Buku Kerja Ini di panel kiri, lalu salin kode VBA di bawah ini ke jendela Kode. Lihat tangkapan layar:
Kode VBA: Lindungi semua lembar kerja saat menutup buku kerja
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Update by Extendoffice 2018/1/24
Dim xSheet As Worksheet
Dim xPsw As String
xPsw = ""
For Each xSheet In Worksheets
xSheet.Protect xPsw
Next
End Sub
Tips:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Sheet1").Protect "123"
ActiveWorkbook.Save
End Sub
3. Kemudian tekan lain + Q untuk menutup jendela Microsoft Visual Basic for Applications.
Setelah langkah di atas, semua lembar kerja atau lembar kerja yang ditentukan akan diproteksi secara otomatis saat menutup buku kerja.
Catatan:
Artikel terkait:
- Bagaimana cara menggunakan daftar drop-down di lembar kerja terlindungi di Excel?
- Bagaimana cara mengunci sel tertentu tanpa melindungi seluruh lembar kerja di Excel?
- Bagaimana cara menyembunyikan formula tetapi menampilkan hasilnya tanpa melindungi lembar kerja di Excel?
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!