İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Arka plan rənglərinə əsaslanan hüceyrə dəyərlərini qorumaq və ya kilidləmək necədir?

Hesab edirəm ki, böyük bir iş var və birdən çox hüceyrə fərqli arka plan rəngləri ilə doludur. İndi, bütün hüceyrələri qırmızı rənglə bağlamaq və ya qoruyan kimi dolu rənglər əsasında hüceyrələri kilidləmək və ya qorumaq istəyirəm. Excel-də bu məsələ ilə məşğul olmaq üçün yaxşı üsullar varmı?

VBA kodu ilə fon rənginə əsaslanan hüceyrə dəyərlərini qorumaq və ya kilidləmək


arrow mavi sağ bubble VBA kodu ilə fon rənginə əsaslanan hüceyrə dəyərlərini qorumaq və ya kilidləmək

Məsələn, digər istifadəçilərin bu hüceyrə dəyərlərini dəyişdirməsini maneə törətmək üçün bütün qırmızı hüceyrələri kilidləmək və qorumaq istəyirəm, aşağıdakı VBA kodu bu işi sizin üçün həll edə bilər, xahiş edirəm:

1. Basıb saxlayın ALT + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. Basın Taxmaq > Modules, və aşağıdakı kodu yapışdırın Modules Pəncərə.

VBA kodu: rəngə əsaslanan hüceyrə dəyərlərini qoruyun və ya kilidləyin:

Sub lockcellsbycolor()
'Updateby Extendoffice 20161027
    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

Qeyd: Yuxarıda göstərilən kodda nömrə 3 çərçivəsində colorIndex = 3 skript mən kilidləmək istəyirəm qırmızı rəngli hüceyrələri göstərir, onu kilidləmək istədiyiniz digər rəng indeksinə dəyişə bilərsiniz.

3. Sonra basın F5 bu kodu çalıştırmak üçün açar və yalnız qırmızı rəngli hüceyrələr kilidlənmişdir, digər hüceyrələr istifadə olunan aktiv siyahıda istifadə kilidini açır, ekran görünüşünə baxın:

rəngli 1 ilə doc kilidi hüceyrələri

4. Onları digər istifadəçilər tərəfindən dəyişdirilmədən qorumaq istəyirsinizsə, yalnız tətbiq etməlisiniz Səthi qoruyun Bu iş səhifəsini qorumaq xüsusiyyətidir.

İpuçları: Rəng indeksinin nömrəsini almaq üçün aşağıdakı İstifadəçi Tanımlanan funksiyasını tətbiq edə bilərsiniz:

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


Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Ben · 4 months ago
    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.
  • To post as a guest, your comment is unpublished.
    Sébastien · 7 months ago
    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