Hur låser och låser du upp angivna celler med en kryssruta i Excel?

Den här artikeln talar om att använda en kryssruta för att låsa och låsa upp ett antal angivna celler i Excel.

Lås och låsa upp angivna celler med en kryssruta med hjälp av VBA-kod

---

Lås och låsa upp angivna celler med en kryssruta med hjälp av VBA-kod

Nedanstående VBA-skript kan hjälpa dig att låsa upp eller låsa ett antal angivna celler när du markerar eller avmarkerar en kryssruta i kalkylbladet. Gör så här.

1. För det första måste du ange ett namn till det cellområde som du behöver låsa och låsa upp med en kryssruta.

Här väljer jag intervall A1: A14, skriver ett namn LåsRng i Namn och tryck sedan på ange nyckel. Se skärmdump:

2. I kalkylbladet innehåller kryssrutan som du använder för att låsa och låsa upp celler, högerklicka på fliken Ark och klicka sedan på Visa kod från högerklickmenyn.

Anmärkningar: Kryssrutan ska vara ActiveX-kryssrutan när du infogar.

3. I pop-up Microsoft Visual Basic för applikationer kopiera och klistra in nedanstående VBA-kod i Koda fönster.

VBA-kod: Lås eller låsa upp ett antal angivna celler med en kryssruta

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

Anmärkningar: I koden är kryssruta 1 namnet på kryssrutan, LockRng är namnet på den angivna intervallcellen. Du kan ändra dem efter behov.

4. tryck på andra + Q samtidigt för att stänga Microsoft Visual Basic för applikationer fönster.

Nu kan du testa koden. När du avmarkerar kryssrutan, a Kutools för Excel dialogrutan dyker upp för att meddela att det angivna intervallet har låsts, klicka på OK knapp.

När du markerar kryssrutan låses alla celler i det angivna intervallet upp och du får en Kutools för Excel dialogrutan som visas nedan till höger.

---

Relaterade artiklar:

• Hur filtrerar jag data baserat på kryssrutan i Excel?
• Hur döljer jag kryssrutan när raden är dold i Excel?
• Hur skapar jag en listruta med flera kryssrutor i Excel?
• Hur markerar jag cell eller rad med kryssrutan i Excel?