Loncat ke daftar isi utama

Bagaimana cara melindungi beberapa lembar kerja sekaligus di Excel?

Misalkan Anda memiliki buku kerja yang berisi beberapa lembar kerja, dan sekarang Anda perlu melindungi semua lembar kerja atau beberapa lembar kerja tertentu, biasanya di Excel, Anda hanya dapat melindungi lembar satu per satu dengan fungsi Lindungi Lembar, tetapi metode ini membosankan dan memakan waktu jika ada banyak lembar yang perlu dilindungi. Bagaimana Anda melindungi banyak lembar sekaligus di Excel dengan cepat dan mudah?

Lindungi semua lembar sekaligus dengan kode VBA

Lindungi beberapa lembar sekaligus dengan Kutools for Excel

Buka proteksi beberapa lembar sekaligus dengan kutools untuk Excel


panah gelembung kanan biru Lindungi semua lembar sekaligus dengan kode VBA

Dengan kode VBA berikut, Anda bisa memproteksi semua lembar buku kerja aktif sekaligus dengan kata sandi yang sama, lakukan seperti ini:

1. Tahan ALT + F11 kunci, dan itu membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Klik Menyisipkan > Modul, dan tempel kode berikut di Jendela Modul.

Kode VBA: Lindungi semua lembar kerja di buku kerja sekaligus:

Sub protect_all_sheets()
top: 
pass = InputBox("password?") 
repass = InputBox("Verify Password") 
If Not (pass = repass) Then 
MsgBox "you made a boo boo" 
Goto top 
End If 
For i = 1 To Worksheets.Count 
If Worksheets(i).ProtectContents = True Then Goto oops 
Next 
For Each s In ActiveWorkbook.Worksheets 
s.Protect Password:=pass 
Next 
Exit Sub 
oops: MsgBox "I think you have some sheets that are already protected. Please unprotect all sheets then running this Macro." 
End Sub

3. Lalu tekan F5 untuk menjalankan kode, dan masukkan kata sandi untuk lembar yang dilindungi di kotak prompt, lihat tangkapan layar:

doc-protect-multiple-sheet1-1

4. Klik OK, lalu masukkan kembali kata sandi untuk mengonfirmasi kata sandi.

doc-protect-multiple-sheet2-2

5. Lalu klik OK, dan semua lembar telah dilindungi dengan sandi yang sama.


panah gelembung kanan biru Lindungi beberapa lembar sekaligus dengan Kutools for Excel

Terkadang, Anda tidak ingin melindungi semua lembar di buku kerja Anda, dan hanya ingin melindungi beberapa lembar tertentu, dalam situasi ini, kode di atas tidak akan berfungsi. Tetapi dengan Kutools untuk Excel'S Lindungi Lembar Kerja utilitas, Anda dapat melindungi semua lembar dan lembar tertentu dengan cepat dan mudah.

Kutools untuk Excel : dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 60 hari

Setelah menginstal Kutools untuk Excel, lakukan langkah-langkah berikut:

1. Klik Kutools Ditambah > Lindungi Lembar Kerja, lihat tangkapan layar:

2. di Lindungi Lembar Kerja kotak dialog, pilih lembar yang ingin Anda proteksi. (Secara default, semua lembar kerja dalam buku kerja saat ini dicentang.) Lihat tangkapan layar:

doc-protect-multiple-sheet4-4

3. Dan klik OK, lalu ketik dan konfirmasi kata sandi dalam kotak dialog Proteksi Lembar Kerja. Lihat tangkapan layar:

doc-protect-multiple-sheet5-5

4. Lalu klik OK, lembar kerja yang dipilih telah diproteksi.

Klik Lindungi Lembar Kerja untuk mengetahui lebih banyak tentang fitur ini.


panah gelembung kanan biru Buka proteksi beberapa lembar sekaligus dengan kutools untuk Excel

Bagaimana Anda bisa membuka proteksi beberapa lembar kerja yang diproteksi di buku kerja pada saat yang sama? Tentu saja, Kutools untuk Excel juga menyediakan Buka Proteksi Lembar Kerja utilitas bagi Anda untuk membuka proteksi sekaligus.

Silakan lakukan dengan langkah-langkah berikut:

1. Buka buku kerja Anda yang berisi lembar kerja yang diproteksi.

2. Lalu klik Kutools Ditambah > Buka Proteksi Lembar Kerja, lihat tangkapan layar:

3. di Buka Proteksi Lembar Kerja kotak dialog, lembar yang diproteksi dicantumkan ke dalam kotak daftar, lalu klik Ok tombol, lihat tangkapan layar:

doc-protect-multiple-sheet7-7

4. Dan kemudian a Buka Proteksi Lembar Kerja kotak dialog muncul untuk mengingatkan Anda memasukkan kata sandi yang telah Anda buat untuk melindungi lembar kerja, lihat tangkapan layar:

doc-protect-multiple-sheet8-8

5. Setelah mengetik kata sandi, klik Ok, semua lembar kerja yang dicentang di kotak daftar tidak dilindungi.

Catatan: Lembar kerja harus memiliki kata sandi yang sama.

Untuk mengetahui lebih lanjut tentang fitur Buka Proteksi Lembar Kerja ini.

Unduh dan uji coba gratis Kutools untuk Excel Sekarang!


panah gelembung kanan biru Demo: Lindungi atau Buka Proteksi semua lembar kerja sekaligus dengan Kutools for Excel

Kutools untuk Excel: dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 30 hari. Unduh dan uji coba gratis Sekarang!

Artikel terkait:

Bagaimana cara membuka proteksi beberapa lembar kerja sekaligus di Excel?

Alat Produktivitas Kantor Terbaik

馃 Kutools AI Ajudan: Merevolusi analisis data berdasarkan: Eksekusi Cerdas   |  Hasilkan Kode  |  Buat Rumus Khusus  |  Analisis Data dan Hasilkan Grafik  |  Aktifkan Fungsi Kutools...
Fitur Populer: Temukan, Sorot, atau Identifikasi Duplikat   |  Hapus Baris Kosong   |  Gabungkan Kolom atau Sel tanpa Kehilangan Data   |   Putaran tanpa Formula ...
Pencarian Super: VLookup Beberapa Kriteria    VLookup Nilai Berganda  |   VLookup di Beberapa Lembar   |   Pencarian Fuzzy ....
Daftar Drop-down Lanjutan: Buat Daftar Drop Down dengan Cepat   |  Daftar Drop Down yang Bergantung   |  Multi-pilih Drop Down List ....
Manajer Kolom: Tambahkan Jumlah Kolom Tertentu  |  Pindahkan Kolom  |  Alihkan Status Visibilitas Kolom Tersembunyi  |  Bandingkan Rentang & Kolom ...
Fitur Unggulan: Fokus Kisi   |  Tampilan Desain   |   Bar Formula Besar    Manajer Buku Kerja & Lembar   |  Perpustakaan Sumberdaya (Teks otomatis)   |  Pemetik tanggal   |  Gabungkan Lembar Kerja   |  Enkripsi/Dekripsi Sel    Kirim Email berdasarkan Daftar   |  Filter Super   |   Filter Khusus (filter tebal/miring/coret...) ...
15 Perangkat Teratas12 Teks Tools (Tambahkan Teks, Hapus Karakter, ...)   |   50 + Grafik jenis (Gantt Chart, ...)   |   40+ Praktis Rumus (Hitung usia berdasarkan ulang tahun, ...)   |   19 Insersi Tools (Masukkan Kode QR, Sisipkan Gambar dari Jalur, ...)   |   12 Konversi Tools (Angka ke Kata, Konversi Mata Uang, ...)   |   7 Gabungkan & Pisahkan Tools (Lanjutan Gabungkan Baris, Pisahkan Sel, ...)   |   ... dan banyak lagi

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...

Deskripsi Produk


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!
Comments (21)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I am trying to use this in a shared workbook but I get a Microsoft Visual Basic error "Run-time error '1004": Application-defined or object-defined error" I am just looking for suggestions on how to get around this. Any help would be appreciated
This comment was minimized by the moderator on the site
Occurs when sheet is already locked
This comment was minimized by the moderator on the site
Thanks for the wonder full tool to protect & unprotect all the sheets at a time. Please guide me I am able to unprotect all sheets in my work book at a time but when I run protect all sheets VBA Code then only first 4 sheets are protected & rest or left unprotected. Please help me to sort out the issue.
This comment was minimized by the moderator on the site
How do I mask the password using the VBA method? I can not find this information via google or F1 help files. Thanks in advance!
This comment was minimized by the moderator on the site
Hi I used this code now I it wont accept my password to get back into my spreadsheet !!
This comment was minimized by the moderator on the site
I have chart tabs and worksheets in my Excel 2013 workbook. The VBA coding above works for the protecting the worksheets but not the separate chart tabs. How do i password protect the multiple chart tabs and multiple worksheets in my workbook? Thanks!
This comment was minimized by the moderator on the site
Hey, I need some help, the above code was very helpful, but it locks the sort (auto filter as well) can you please provide code to solve that problem and also where it would be inserted. Thank you in advance.
This comment was minimized by the moderator on the site
Thank you! This is awesome, I was even able to modify the VBA code so that I could unprotect all sheets at once! :) Sub unprotect_all_sheets() top: pass = InputBox("password?") repass = InputBox("Verify Password") If Not (pass = repass) Then MsgBox "you made a boo boo" GoTo top End If For i = 1 To Worksheets.Count Next For Each s In ActiveWorkbook.Worksheets s.Unprotect Password:=pass Next Exit Sub oops: MsgBox "I think you have some sheets that are already protected. Please unprotect all sheets B4 running this Macro." End Sub
This comment was minimized by the moderator on the site
when i activated this VBA, hyperlink doesn't work. how can i make them work? tnx :)
This comment was minimized by the moderator on the site
I am suddenly having the 1004 error as well. Anyone find a solution?
This comment was minimized by the moderator on the site
I'm suddenly having the error 1004 issue. Have been using the macro for months now it randomly fails.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
Rate this post:
0   Characters
Suggested Locations