beveiligingsstatus van cellen visualiseren in een werkblad

[sherpa14]

Bij een complex werkblad is het vaak heel lastig om bij het bewerken van formules e.d. te weten of de cel nu wel of niet geblokkeerd werd. Om te bewerken moet de beveiliging afgenomen worden, dus dan is het niet makkelijk om na te gaan of je met een geblokkeerde cel aan het werken bent of niet. En vaak moet je achteraf constateren dat je een aantal vellen vergeten bent. Frustratie ten top dus.
Ik zoek me suf om een oplossing te vinden om met een paar toetsaanslagen een overzicht van het blad te hebben om de status van de ingestelde beveiliging van de cellen (geblokkeerd of niet) kan visualiseren, vb in een kleur. Bestaat daar een oplossing voor?

Mijn dank voor uw suggesties.
excel 2013/2019

 

[edmoor]

Misschien de cellen een kleurtje geven?

Private Sub CommandButton1_Click()
    ActiveSheet.Unprotect "sherpa14"
    For Each cl In ActiveSheet.UsedRange
        If Not cl.Locked Then cl.Interior.Color = 15132391
    Next cl
    ActiveSheet.Protect "sherpa14"
End Sub

Dat kan je natuurlijk ook bij het instellen van die cellen al doen.

 

[sherpa14]

@edmoor Okee, ... wil je kort uitleggen wat ik moet doen met die code. Ik veronderstel dat dit Visual Basic is, en daar ben ik niet zo in thuis. Mijn excuses.

 

[edmoor]

Als je de betreffende cellen bij het deblokkeren al een kleurtje geeft heb je geen code nodig.

 

[sherpa14]

@ edmoor
Het klopt wat je zegt maar dat maakt het nog altijd niet gemakkelijk. Ik heb zelf nog eens gegrasduind en heb een redelijk goed antwoord hier gevonden. Ik wil het je niet onthouden: [How to identify and select all locked cells in Excel?](https://www.extendoffice.com/documents/excel/1053-excel-identify-select-locked-cells.html) . Ik kan hier al een end mee weg.
Bedankt toch voor de suggestie.