Så markerar du låsta celler i Excel

I detta Exceltips får du två recept på hur du snabbt kan markera låsta celler i Excel:

1. Med hjälp den vanliga sökfunktionen
2. Med hjälp av VBA-kod

Ladda ner exempelfilen här.

Vad kännetecknar skyddade celler?

När man lägger på ett kalkylbladsskydd med knappen Skydda blad i menyfliken Granska, så skyddas alla celler som har inställningen Låst i dialogrutan Formatera celler.

Markera låsta celler med Sök

Bra, nu när vi vet ”kännetecknet” för skyddade celler så kan vi faktiskt utnyttja Excels vanliga sökfunktionalitet . Jo, så enkelt är det faktiskt.

❶ Börja med att markera det område du vill söka inom och tryck Ctrl+B (Ctrl+F) för att komma till Sök i Excel. (Viktigt att begränsa området, då det tar lång tid att söka igenom hela kalkylbladets alla celler)

❷ Klicka på knappen Format…

❸ Välj bladfliken Skydd

❹ Se till att Låst är ibockad

❺ Välj Sök alla

Nu kommer alla skyddade celler att komma upp i listan, men bara den första cellen är markerad i listan i dialogrutan Sök och ersätt.

Tryck Ctrl+A för att se till att alla celler med sökträff markeras

Nu är alla skyddade celler markerade. Behöver du formatera dem eller ändra inställningar för just dessa celler så är det bara ett klick bort .

Markera låsta celler med VBA

Om du har behovet att använda VBA för att markera celler så kommer ett recept här.

Gör så här: Öppna VBA-editorn med kortkommandot Alt+F11 (alternativt gå till menyfliken Utvecklare – kan behövas läggas till via Arkiv–Altenativ–Anpassa Menyfliksområdet).

Inne i VBA-editorn skapar du en ny modul via menyfliken Infoga och knappen Modul. Klistra in koden nedan. Spara Excelfilen som en makroaktiverad arbetsbok (.xlsm). Sedan kan du köra makrot via Alt+F8.

Sub MarkeraLåstaCeller()
    Dim cell As Range
    Dim låstaCeller As Range

    For Each cell In ActiveSheet.UsedRange
        If cell.Locked Then
            If låstaCeller Is Nothing Then
                Set låstaCeller = cell
            Else
                Set låstaCeller = Union(låstaCeller, cell)
            End If
        End If
    Next cell

    If Not låstaCeller Is Nothing Then
        låstaCeller.Select
        MsgBox "Alla låsta celler är nu markerade.", vbInformation
    Else
        MsgBox "Inga låsta celler hittades.", vbExclamation
    End If
End Sub

Vill du ha en kavalkad av liknade tips som detta i videoformat?

Kolla in e-kursen Excelwebbinarier på officekurs.se.