NIET geblokeerde cellen automatisch kleuren.

[RobYol]

Is er een oplossing die de NIET geblokkeerde cellen automatisch een kleur geeft als ik een werkblad beveilig en weer blanco maakt wanneer het werkblad van de beveiliging af haal.

Alvast bedankt,

Robert :thumb:

 

[zapatr]

Ja, dat is mogelijk.
Maar dan kun je dat best voor een bepaald gebied laten gelden en niet voor
het gehele werkblad, want als er steeds naar 256 x 65536 cellen gekeken
moet worden welke wel en welke niet gekleurd zijn, dat zou veel tijd vergen.

 

[RobYol]

Ja, dat is mogelijk.
Maar dan kun je dat best voor een bepaald gebied laten gelden en niet voor
het gehele werkblad, want als er steeds naar 256 x 65536 cellen gekeken
moet worden welke wel en welke niet gekleurd zijn, dat zou veel tijd vergen.

Okay dat is duidelijk, maar hoe doe ik dit?

Gr Robert

 

[Cobbe]

Met deze:

Sub Kleurblok()
For Each cel In Range("A1:K20")
cel.Interior.ColorIndex = xlNone
If cel.Locked = True Then
cel.Interior.ColorIndex = 6
End If
Next
End Sub

Suc6, Cobbe

 

[zapatr]

Zie bijlage

 

[Warme bakkertje]

Sub Blad_Beveiligd()
Sheets("Blad1").Protect , , , , True
For Each cel In [A1:K20]
cel.Interior.ColorIndex = IIf(cel.Locked = True, xlNone, 6)
Next
End Sub

Sub Blad_Onbeveiligd()
Sheets("Blad1").Unprotect
For Each cel In [A1:K20]
cel.Interior.ColorIndex = xlNone
Next
End Sub

 

[RobYol]

Bedankt

Uw wordt allen weer bedankt we kunnen weer lekker verder.



:thumb::thumb::thumb::thumb::thumb:

Gr Robert