Bagaimana cara melindungi atau mengunci nilai sel berdasarkan warna latar belakang?
Misalkan, saya memiliki lembar kerja yang besar dan beberapa sel diisi dengan warna latar belakang yang berbeda, sekarang, saya ingin mengunci atau melindungi sel berdasarkan warna isi tertentu, seperti mengunci atau melindungi semua sel dengan warna merah. Apakah ada metode yang bagus untuk menangani tugas ini di Excel?
Lindungi atau kunci nilai sel berdasarkan warna latar belakang dengan kode VBA
Lindungi atau kunci nilai sel berdasarkan warna latar belakang dengan kode VBA
Misalnya, saya ingin mengunci dan melindungi semua sel darah merah, untuk mencegah pengguna lain mengubah nilai sel ini, kode VBA berikut dapat menyelesaikan pekerjaan ini untuk Anda, lakukan seperti ini:
1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Klik Menyisipkan > Modul, dan tempel kode berikut di Modul Jendela.
Kode VBA: Lindungi atau kunci nilai sel berdasarkan warna:
Sub lockcellsbycolor()
'Updateby Extendoffice
Dim colorIndex As Integer
colorIndex = 3
Dim xRg As Range
Application.ScreenUpdating = False
For Each xRg In ActiveSheet.UsedRange.Cells
Dim color As Long
color = xRg.Interior.colorIndex
If (color = colorIndex) Then
xRg.Locked = True
Else
xRg.Locked = False
End If
Next xRg
Application.ScreenUpdating = True
MsgBox "All specified color cells have been locked!", vbInformation, "Kutools for Excel"
End Sub
Note: Pada kode di atas, angka 3 dalam indeks warna = 3 skrip menunjukkan sel warna merah yang ingin saya kunci, Anda dapat mengubahnya ke indeks warna lain yang ingin Anda kunci.
3. Lalu tekan F5 kunci untuk menjalankan kode ini, dan hanya sel warna merah yang telah dikunci, sel lain dibuka kuncinya dalam kisaran lembar aktif yang digunakan, lihat tangkapan layar:
4. Jika Anda ingin melindunginya agar tidak diubah oleh pengguna lain, Anda hanya perlu menerapkan Lindungi Lembar fitur untuk melindungi lembar kerja ini.
Tip: Untuk mendapatkan nomor indeks warna, Anda dapat menerapkan Fungsi Buatan Pengguna berikut:
Function GetColor(x As Range) As Integer
GetColor = x.Interior.ColorIndex
End Function
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!