Alleen niet-geblokkeerde cellen andere kleur geven

[Marco9999]

Goedemorgen,

Ik heb een werkblad gemaakt welke door collega's ingevuld moet gaan worden.
De cellen waar niets ingevuld hoeft te worden zijn geblokkeerd, het werkblad is beveiligd.

De cellen die wel ingevuld moeten worden heb ik een kleurtje gegeven en zijn uiteraard niet geblokkeerd.

Als ik het werkblad afdruk wil ik graag dat de gekleurde invulvelden wit gemaakt worden, dat staat wat netter op de print.
Na afdrukken mogen de cellen wit blijven.

Nu zoek ik een VBA-script om alleen de niet-geblokkeerde cellen op het werkblad wit te maken bij afdrukken.
Heb het al eerder geprobeerd met voorwaardelijke opmaak maar dat is geen suc6.

Iemand een iedeetje?

Groet,
Marco

[emields]

zo?

[Marco9999]

Hoi,

Nog niet helemaal. Ik heb in de werkmap zo'n 20 bladen zitten met erg veel cellen op verschillende plaatsen.
Ik zoek eigenlijk een formule die zegt:

Alle niet geblokkeerde cellen = wit

[roeljongman]

Ik kon zo snel niet de juiste events vinden om het in of uit te schakelen voor en na printen.
maar deze macro's in een Module1 werken, je kunt ze dan naar wens aanroepen in de events

Sub CelOntkleuren()

For Each cl In ActiveSheet.UsedRange
    If cl.Locked = False Then cl.Interior.Color = xlNone
Next
    
End Sub

Sub CelKleuren()

For Each cl In ActiveSheet.UsedRange
    If cl.Locked = False Then cl.Interior.Color = 10079487
Next
    
End Sub

PS: jou voorbeeld bestand had alleen locked cells dus daar zal je eerst een paar cellen op unlocked moeten zetten om het te testen...

[E v R]

Je kunt, tenminste als zwart-wit print voldoende is en er geen andere kleuren zijn, de page-setup op zwart-wit zetten.
Dan is 1 eenmalige handeling voldoende per sheet:

Worksheets("Blad1").PageSetup.BlackAndWhite = True