Excel'de bir onay kutusuyla belirli hücreleri nasıl kilitleyip açabilirsiniz?

Bu makale, Excel'de bir onay kutusunu kullanarak belirli hücrelerin kilidini açmayı ve kilitlemeyi ele almaktadır.

VBA kodu kullanarak bir onay kutusuyla belirli hücreleri kilitleyip açma

VBA kodu kullanarak bir onay kutusuyla belirli hücreleri kilitleyip açma

Aşağıdaki VBA betiği, çalışma sayfasındaki bir onay kutusunu işaretlediğinizde veya işaretini kaldırdığınızda belirli hücrelerin kilidini açmanıza veya kilitlemenize yardımcı olabilir. Lütfen aşağıdaki adımları izleyin.

1. İlk olarak, bir onay kutusuyla kilitlemek ve kilidini açmak istediğiniz hücre aralığına bir isim vermeniz gerekiyor.

Burada A1:A14 aralığını seçiyorum, Ad kutusuna LockRng adını yazıyorum ve ardından Enter tuşuna basıyorum. Ekran görüntüsüne bakın:

2. Kilitlenecek ve kilidi açılacak hücreleri kontrol etmek için kullanacağınız onay kutusunu içeren çalışma sayfasında, Sayfa Sekmesine sağ tıklayın ve ardından sağ tıklama menüsünden Kodu Görüntüle'yi tıklayın.

Not: Onay kutusu ekleme sırasında ActiveX onay kutusu olmalıdır.

3. Açılan Microsoft Visual Basic for Applications penceresinde lütfen aşağıdaki VBA kodunu Kod penceresine kopyalayıp yapıştırın.

VBA kodu: Bir onay kutusuyla belirli hücrelerin kilidini açma veya kilitleme

Private Sub CheckBox1_Click()
    Range("LockRng").Select
    On Error Resume Next
    If CheckBox1.Value = True Then
        Selection.Locked = False
        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

Not: Kodda, Checkbox1 onay kutusunun adıdır, LockRng ise belirlenen hücre aralığının adıdır. İhtiyaçlarınıza göre bunları değiştirebilirsiniz.

4. Microsoft Visual Basic for Applications penceresini kapatmak için Alt + Q tuşlarına aynı anda basın.

Şimdi kodu test edebilirsiniz. Onay kutusunun işaretini kaldırdığınızda, belirlenen aralığın kilitlendiğini size bildiren bir Kutools for Excel iletişim kutusu açılacaktır, lütfen Tamam düğmesine tıklayın.

Onay kutusunu işaretlediğinizde, belirlenen aralıktaki tüm hücrelerin kilidi açılacak ve aşağıdaki ekran görüntüsünde gösterildiği gibi bir Kutools for Excel iletişim kutusu alacaksınız.

İlgili makaleler:

• Excel'de onay kutusuna göre veriler nasıl filtrelenir?
• Excel'de satır gizlendiğinde onay kutusu nasıl gizlenir?
• Excel'de çoklu onay kutulu bir açılır liste nasıl oluşturulur?
• Excel'de bir hücreyi veya satırı onay kutusuyla nasıl vurgularsınız?