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