Cellen beveiligen

[Michielph]

Dag,

Ik heb een klein probleempje. Ik weet hoe ik mijn cellen allemaal apart kan beveiligen maar nu heb ik een macro geschreven die waardes in verschillende cellen zet. Aan deze cellen zou niemand wijzigingen mogen aanbrengen. Het gaat namelijk om belangrijke gegevens. Wanneer de macro nu deze cijfers naar de cel wilt schrijven, krijg ik een error die zegt dat mijn cel een "alleen lezen" cel is.

Weet iemand hoe ik mijn cel kan beveiligen tegen wijzigingen maar mijn macro er toch cijfers in kan plaatsen?

Alvast bedankt

Met vriendelijke groeten

Michielph

 

[Koos Voos]

Eerst celbeveiliging laten opheffen, data wegschrijven en dan cellen weer laten beveiligen.

vb:
ActiveWorkbook.Sheets("De naam van je blad").Activate
Range("hier je range selectie").Select
ActiveSheet.Unprotect Password:="hier je paswoord"

en aan het eind van je script zoiets als:
ActiveSheet.Protect Password:="hier je paswoord"

Deze oplossing op dit forum gekregen/gevonden

 

[Michielph]

Dag Koos

Ik heb het geprobeerd zoals je zei en het werkt inderdaad. Enorm bedankt met de hulp.

vriendelijke groet

Michielph