Bagaimana cara mengunci atau melindungi sel setelah entri data atau input di Excel?
Misalkan Anda memiliki lembar kerja dan hanya rentang sel kosong tertentu yang memerlukan entri data, dan setelah selesai memasukkan data, Anda memerlukan sel untuk dikunci secara otomatis untuk mencegah perubahan lagi. Bagaimana Anda bisa mencapainya? Artikel ini dapat membantu Anda.
Kunci atau lindungi sel setelah entri data atau input dengan kode VBA
Kunci atau lindungi sel setelah entri data atau input dengan kode VBA
Misalnya, rentang sel kosong tertentu adalah A1: F8. Harap lakukan hal berikut untuk mengunci sel-sel ini setelah entri data di Excel.
1. Harap buka kunci rentang ini terlebih dahulu, pilih sel dan klik kanan, lalu pilih Format Cells di menu klik kanan, dan di Format Cells kotak dialog, hapus centang pada Terkunci kotak di bawah perlindungan tab, dan terakhir mengklik OK tombol. Lihat tangkapan layar:
2. klik ULASAN > Lindungi Lembar. Dan tentukan kata sandi untuk melindungi lembar kerja ini.
3. Klik kanan tab lembar, pilih Lihat kode dari menu klik kanan. Kemudian salin dan tempel kode VBA di bawah ini ke jendela Kode. Lihat tangkapan layar:
Kode VBA: Mengunci atau melindungi sel setelah entri atau input data
Dim mRg As Range
Dim mStr As String
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("A1:F8"), Target) Is Nothing Then
Set mRg = Target.Item(1)
mStr = mRg.Value
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xRg As Range
On Error Resume Next
Set xRg = Intersect(Range("A1:F8"), Target)
If xRg Is Nothing Then Exit Sub
Target.Worksheet.Unprotect Password:="123"
If xRg.Value <> mStr Then xRg.Locked = True
Target.Worksheet.Protect Password:="123"
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("A1:F8"), Target) Is Nothing Then
Set mRg = Target.Item(1)
mStr = mRg.Value
End If
End Sub
Note: Dalam kode, "A1: F8" adalah kisaran yang Anda butuhkan untuk memasukkan data; dan "123" adalah kata sandi dari lembar kerja yang dilindungi ini. Harap ubah sesuai kebutuhan Anda.
4. tekan lain + Q tombol secara bersamaan untuk menutup Microsoft Visual Basic untuk Aplikasi jendela.
Setelah selesai memasukkan data ke sel rentang A1: F8, mereka akan terkunci secara otomatis. Dan Anda akan mendapatkan kotak dialog prompt jika Anda mencoba mengubah konten sel apa pun dari kisaran ini. Lihat tangkapan layar:
Terkait artikel:
- Bagaimana cara mengunci semua referensi sel dalam rumus sekaligus di Excel?
- Bagaimana cara mengunci atau membuka kunci sel berdasarkan nilai di sel lain di Excel?
- Bagaimana cara mengunci gambar / gambar ke atau di dalam sel 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 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!
