Bagaimana cara mengunci dan melindungi sel yang tidak kosong di Excel?
Misalkan, saya memiliki lembar kerja yang mengisi beberapa sel kosong dalam rentang data, sekarang, saya ingin mengunci dan melindungi semua sel data, dan membiarkan sel kosong tidak terkunci untuk memasukkan beberapa nilai baru. Bagaimana Anda bisa mengunci dan melindungi sel-sel yang tidak kosong secepat mungkin di Excel?
Kunci dan lindungi semua sel yang tidak kosong dalam rentang yang dipilih dengan Lindungi Lembar
Kunci dan lindungi semua sel yang tidak kosong dalam rentang yang digunakan dengan kode VBA
Kunci dan lindungi semua sel yang tidak kosong dalam rentang yang dipilih dengan Lindungi Lembar
Biasanya, Anda dapat menyelesaikan pekerjaan ini di Excel dengan metode berikut selangkah demi selangkah:
1. Pilih rentang sel yang ingin Anda kunci dan proteksi sel data, lalu klik Beranda > Temukan & Pilih > Pergi ke khusus, lihat tangkapan layar:
2. di Pergi ke khusus kotak dialog, pilih Kosong dari Pilih bagian, lihat tangkapan layar:
3. Lalu klik OK tombol, dan semua sel kosong telah dipilih sekaligus, lalu tekan Ctrl + 1 kunci untuk membuka Format Cells kotak dialog, di bawah Proteksi tab, hapus centang pada Terkunci opsi, lihat tangkapan layar:
4. Klik OK, Dan Kemudian klik ULASAN > Lindungi Lembar, lalu masukkan dan konfirmasi kata sandi yang Anda butuhkan, lihat tangkapan layar:
5. Klik OK untuk menutup dialog, dan sekarang, semua sel data telah dilindungi dan hanya membiarkan sel kosong tidak terlindungi.
Kunci dan lindungi semua sel yang tidak kosong dalam rentang yang digunakan dengan kode VBA
Metode di atas memiliki beberapa langkah, untuk mencapainya secepat mungkin, kode VBA berikut dapat membantu Anda, lakukan seperti ini:
1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Lalu klik Menyisipkan > Modul, dan tempel kode berikut di Modul Jendela.
Kode VBA: Kunci dan lindungi semua sel yang tidak kosong di lembar kerja
Sub UnlockEmptyCells()
'Updateby Extendoffice
Application.ScreenUpdating = False
Cells.Locked = True
Selection.SpecialCells(xlCellTypeBlanks).Locked = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.ScreenUpdating = True
End Sub
3. Lalu tekan F5 kunci untuk menjalankan kode ini, hanya sel yang tidak kosong yang dilindungi sekaligus dalam rentang yang digunakan.
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!