Ophæve beskyttelse vha VBA

Jeg har lavet en VBA kode, hvor jeg går ind og skriver flere steder, jeg ønsker at arket skal være beskyttet, hvilke ikke er et probem, men når jeg kører koden, kan den ikke skrive til arket fordi den er beskyttet.

Så det jeg har behov for er at kunne låse det aktive ark op og lade koden lave det den er kodet til og derefter låse arket igen

Jeg har en kode der låser hele projektmappen op, men det må kunne gøres kun aktive ark op.

Hilsen MIchael