İ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

Excel-də qeyd olunan hüceyrələri bir onay qutusuna kilitləmək və açmaq üçün necə?

Bu yazı, Excel-də müəyyən edilmiş hüceyrələrin bir sıra kilidini açmaq və açmaq üçün bir onay qutusundan istifadə etməkdən bəhs edir.

VBA kodu istifadə edərək müəyyən hüceyrələri bir onay qutusunu kilidlə və kilidini açın


arrow mavi sağ bubble VBA kodu istifadə edərək müəyyən hüceyrələri bir onay qutusunu kilidlə və kilidini açın


Aşağıdakı VBA skripti, iş səhifəsində bir onay qutusunu yoxlamaq və ya silməkdə müəyyən hüceyrələrin bir sıra kilidini açmaq və ya kilidləmək üçün kömək edə bilər. Xahiş edirik bunu edin.

1. Birincisi, bir onay qutusuna kilidləmək və açmaq üçün lazım olan hüceyrələr aralığına bir ad təyin etmək lazımdır.

Burada A1 aralığını seçirəm: A14, bir ad yazın LockRng daxil ad qutusuna basın və sonra basın Daxil edin açar. Ekran görüntüsünə baxın:

2. İş yerindəki hüceyrələri kilidləmək və açmaq üçün istifadə edəcəyiniz onay qutusunu ehtiva edir, Sekme Sekmesinin sağ klikləyin və sonra da basın Kodları baxın sağ tıklayarak menyudan.

Qeyd: Daxil edərkən onay qutusu ActiveX əmr qutusu olmalıdır.

3. Popping up Proqramlar üçün Microsoft Visual Basic Pəncərədən, aşağıdakı VBA kodunu kopyalayıb yapışdırın Kodu pəncərə.

VBA kodu: Belirtilen hüceyrələrin bir sıra onay qutusunu kilidlə və ya kilidini açın

Private Sub CheckBox1_Click()
    Range("LockRng").Select
    On Error Resume Next
    If CheckBox1.Value = True Then
        Selection.Locked = Fals
        MsgBox "Range cells " & Selection.Address & " has been unlocked", vbInformation, "Kutools for Excel"
    Else
        Selection.Locked = True
        MsgBox "Range cells " & Selection.Address & " has been locked", vbInformation, "Kutools for Excel"
    End If
End Sub

QeydKod: Checkbox1, onay qutusunun adıdır, LockRng müəyyən aralıklı hücrenin adıdır. Sizə lazım olanları dəyişə bilərsiniz.

4. Basın Dayandırmaq + Q düymələri eyni vaxtda bağlamaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

İndi kodu sınayabilirsiniz. Yoxlama qutusundan sildikdə, a Excel üçün Kutools informasiya qutusu açılacaq, müəyyən aralık kilidlənmişdir, xahiş edirik basın OK düyməsini basın.

Qeybət qutusunu yoxlayarkən, göstərilən aralıdakı bütün hüceyrələr açılacaq və siz alacaqsınız Excel üçün Kutools sağ ekran görüntüsünün aşağıda göstərilən informasiya qutusu göstərilir.


arrow mavi sağ bubbleƏlaqəli məqalələr:



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.

Be the first to comment.