

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
zo?
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
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
Code:Sub CelOntkleuren() For Each cl In ActiveSheet.UsedRange If cl.Locked = False Then cl.Interior.Color = xlNone Next End SubCode: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...
Laatst aangepast door roeljongman : 11 februari 2019 om 15:26
Vertaaltool Excelformules https://nl.excel-translator.de/translator/
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:
Code:Worksheets("Blad1").PageSetup.BlackAndWhite = True
Gr. Eric