Note: The other languages of the website are Google-translated. Back to English

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-sheets1-1

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

doc-protect-multiple-sheets2-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 Plus > 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-sheets4-4

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

doc-protect-multiple-sheets5-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 Plus > 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-sheets7-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-sheets8-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 for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2021 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap Uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

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!
officetab bawah
Urutkan komentar berdasarkan
komentar (21)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Hebat--jadi bagaimana cara UNprotect semuanya sekaligus? Saya seorang amatir, jadi saya butuh info lebih lanjut.
Komentar ini diminimalkan oleh moderator di situs
[quote]Bagus--jadi bagaimana cara UNprotect semuanya sekaligus? Saya seorang amatir, jadi saya butuh info lebih lanjut.Oleh Kristin Dzugan[/quote] :-) Anda dapat dengan mudah membuka proteksinya sebagai http://www.extendoffice.com/product/kutools-for-excel/excel-unprotect-multiple-sheets.html
Komentar ini diminimalkan oleh moderator di situs
Sub unprotect_all_sheets() top: pass = InputBox("password?") repass = InputBox("Verify Password") Jika Tidak (pass = repass) Kemudian MsgBox "you make a boo boo" GoTo top End If For i = 1 To Worksheets .Count Next Untuk Setiap s Dalam ActiveWorkbook.Worksheets s.Unprotect Password:=pass Next Exit Sub oops: MsgBox "Saya pikir Anda memiliki beberapa lembar yang sudah dilindungi. Harap buka proteksi semua lembar B4 yang menjalankan Makro ini." Akhir Sub
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak :-)
Komentar ini diminimalkan oleh moderator di situs
Seperti yang dikatakan Kristin, bagaimana Anda membuka proteksi mereka sekaligus?
Komentar ini diminimalkan oleh moderator di situs
Jadi, bagaimana cara membuka proteksi tanpa kutools?
Komentar ini diminimalkan oleh moderator di situs
[quote]Jadi, bagaimana cara membuka proteksi tanpa kutools?Oleh cz[/quote] Anda dapat membuka proteksi lembar kerja tanpa Kutools for Excel. Anda hanya perlu mengklik kanan pada tab lembar yang ingin Anda buka proteksinya dan klik perintah Unprotect Sheet, lalu masukkan kata sandi Anda. :-)
Komentar ini diminimalkan oleh moderator di situs
ketika saya memasukkan kode itu muncul dengan "run time error 1004?? menyoroti yang berikut dengan warna kuning ... s.Protect Password:=pass
Komentar ini diminimalkan oleh moderator di situs
Saya tiba-tiba mengalami kesalahan 1004 juga. Saya telah menggunakan makro selama berbulan-bulan tetapi sekarang tidak dapat berjalan.
Komentar ini diminimalkan oleh moderator di situs
Hai, saya juga mengalami masalah ini. Ternyata itu tidak bisa berjalan jika Anda memiliki semua lembar yang dipilih di buku kerja. Coba pilih hanya satu lembar lalu jalankan.
Komentar ini diminimalkan oleh moderator di situs
Saya tiba-tiba mengalami masalah kesalahan 1004. Telah menggunakan makro selama berbulan-bulan sekarang gagal secara acak.
Komentar ini diminimalkan oleh moderator di situs
Saya tiba-tiba mengalami kesalahan 1004 juga. Adakah yang menemukan solusi?
Komentar ini diminimalkan oleh moderator di situs
ketika saya mengaktifkan VBA ini, hyperlink tidak bekerja. bagaimana saya bisa membuat mereka bekerja? terima kasih :)
Komentar ini diminimalkan oleh moderator di situs
Terima kasih! Ini luar biasa, saya bahkan dapat memodifikasi kode VBA sehingga saya dapat membuka proteksi semua lembar sekaligus! :) Sub unprotect_all_sheets() top: pass = InputBox("password?") repass = InputBox("Verify Password") Jika Tidak (pass = repass) Kemudian MsgBox "you make a boo boo" GoTo top End If For i = 1 To Worksheets.Count Next For Every s In ActiveWorkbook.Worksheets s.Unprotect Password:=pass Next Exit Sub oops: MsgBox "Saya pikir Anda memiliki beberapa lembar yang sudah dilindungi. Harap buka proteksi semua lembar B4 yang menjalankan Makro ini." Akhir Sub
Komentar ini diminimalkan oleh moderator di situs
Hei, saya butuh bantuan, kode di atas sangat membantu, tetapi mengunci sortir (filter otomatis juga) dapatkah Anda memberikan kode untuk menyelesaikan masalah itu dan juga di mana itu akan dimasukkan. Terima kasih sebelumnya.
Komentar ini diminimalkan oleh moderator di situs
Saya memiliki tab bagan dan lembar kerja di buku kerja Excel 2013 saya. Pengkodean VBA di atas berfungsi untuk melindungi lembar kerja tetapi tidak untuk tab bagan yang terpisah. Bagaimana cara saya melindungi beberapa tab bagan dan beberapa lembar kerja di buku kerja saya dengan kata sandi? Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Hai Saya menggunakan kode ini sekarang saya tidak akan menerima kata sandi saya untuk kembali ke spreadsheet saya !!
Komentar ini diminimalkan oleh moderator di situs
Bagaimana cara menutupi kata sandi menggunakan metode VBA? Saya tidak dapat menemukan informasi ini melalui file bantuan google atau F1. Terima kasih sebelumnya!
Komentar ini diminimalkan oleh moderator di situs
Terima kasih atas alat lengkap yang menakjubkan untuk melindungi & membuka proteksi semua lembar sekaligus. Tolong bimbing saya Saya dapat membuka proteksi semua lembar di buku kerja saya sekaligus tetapi ketika saya menjalankan proteksi semua lembar Kode VBA maka hanya 4 lembar pertama yang dilindungi & istirahat atau dibiarkan tidak terlindungi. Tolong bantu saya untuk menyelesaikan masalah ini.
Komentar ini diminimalkan oleh moderator di situs
Saya mencoba menggunakan ini di buku kerja bersama tetapi saya mendapatkan kesalahan Microsoft Visual Basic "Run-time error '1004": Application-defined or object-defined error" Saya hanya mencari saran tentang cara menyiasatinya. bantuan akan dihargai
Komentar ini diminimalkan oleh moderator di situs
Terjadi ketika lembar sudah terkunci
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL