Ana içeriğe atla

Arka plan rengine göre hücre değerleri nasıl korunur veya kilitlenir?

Diyelim ki, büyük bir çalışma sayfam var ve birden çok hücre farklı arka plan renkleriyle dolu, şimdi hücreleri kilitlemek veya tüm hücreleri kırmızı renkle korumak gibi belirli dolgulu renge göre kilitlemek veya korumak istiyorum. Excel'de bu görevin üstesinden gelmek için iyi yöntemler var mı?

VBA kodu ile arka plan rengine göre hücre değerlerini koruyun veya kilitleyin


ok mavi sağ balon VBA kodu ile arka plan rengine göre hücre değerlerini koruyun veya kilitleyin

Örneğin, diğer kullanıcıların bu hücre değerlerini değiştirmesini önlemek için tüm kırmızı hücreleri kilitlemek ve korumak istiyorum, aşağıdaki VBA kodu bu işi sizin için çözebilir, lütfen şu şekilde yapın:

1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. tıklayın Ekle > modülve aşağıdaki kodu modül Pencere.

VBA kodu: Renklere göre hücre değerlerini koruyun veya kilitleyin:

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

not: Yukarıdaki kodda numara 3 içinde renkIndex = 3 komut dosyası kilitlemek istediğim kırmızı renk hücrelerini gösteriyor, kilitlemek istediğiniz diğer renk indeksiyle değiştirebilirsiniz.

3. Daha sonra tuşuna basın. F5 bu kodu çalıştırmak için anahtar ve yalnızca kırmızı renkli hücreler kilitlendi, diğer hücrelerin kullanılan aktif sayfa aralığında kilidi açıldı, ekran görüntüsüne bakın:

renge göre doc kilit hücreleri 1

4. Bunları diğer kullanıcılar tarafından değiştirilmekten korumak istiyorsanız, sadece Koruma Sayfası bu çalışma sayfasını koruma özelliği.

İpuçları: Renk indeksi numarasını almak için aşağıdaki Kullanıcı Tanımlı İşlevi uygulayabilirsiniz:

Function GetColor(x As Range) As Integer
GetColor = x.Interior.ColorIndex
End Function

En İyi Ofis Üretkenlik Araçları

Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
Süper Arama: Çoklu Ölçütlü VLookup    Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu    Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz    E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
En İyi 15 Araç Seti12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50'den fazla Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar.  En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...

kte sekmesi 201905


Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Bonjour, y a t il une astuce quand la feuille est protégée d utiliser le panel des couleurs dans l onglet accueil pour mettre un fond de couleur sur les cases non protégés merci
This comment was minimized by the moderator on the site
How do you run this in a loop, so that all cells in all sheets that are not the specific color will be protected?
This comment was minimized by the moderator on the site
Can this be applied to a sheet with merged cells and can it recognize a cell color that is based on conditional formatting? I want to lock cells that are color code 15 and those cells are color code 15 based on a conditional format. Thank you in advance.
This comment was minimized by the moderator on the site
Bonjour,
j'aurais voulu savoir si il était possible de faire la même chose mais avec la valeur de la cellule plutôt que la couleur?
Par exemple: Verrouiller toutes les cellules dont la valeur est "-" de la plage B2:E25.

Merci d'avance
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations