Opgelost samengevoegde cel kopiëren en er boven invoegen

[jack999]

ik moet steeds mijn laatste verslag boven de vorige plaatsen
dit doe ik in een samengevoegde cel, links en boven uitgelijnd met terugloop (samengevoegde cel geel gekleurd ter verduidelijking in bestand)
dus heb ik een macro opgenomen om deze cel steeds er boven te plakken. die gekoppeld aan de knop "Extra" (zie bestand)
werkt op zich prima, maar wanneer ik het blad beveilig, omdat er verwijzingen en formules elders in het blad staan die beschermd moeten worden, werkt de macro niet meer naar behoren, hij kopieert en voegt de cel en wel boven maar niet meer samengevoegd het zijn nu allemaal weer aparte cellen. als ik de beveiliging eraf haal dan doet hij het weer.
is dit op een andere manier op te lossen , zodat ik wel het blad wel kan beveiligen??

 

[edmoor]

Je hebt het bestand niet geplaatst.

Je kan in de macro aan het begin de beveiliging eraf halen en aan het einde weer terug zetten.
Eraf:
Sheets("Blad1").Unprotect "Wachtwoord"

Weer terug:
Sheets("Blad1").Protect "Wachtwoord"

 

[jack999]

ik moet steeds mijn laatste verslag boven de vorige plaatsen
dit doe ik in een samengevoegde cel, links en boven uitgelijnd met terugloop (samengevoegde cel geel gekleurd ter verduidelijking in bestand)
dus heb ik een macro opgenomen om deze cel steeds er boven te plakken. die gekoppeld aan de knop "Extra" (zie bestand)
werkt op zich prima, maar wanneer ik het blad beveilig, omdat er verwijzingen en formules elders in het blad staan die beschermd moeten worden, werkt de macro niet meer naar behoren, hij kopieert en voegt de cel en wel boven maar niet meer samengevoegd het zijn nu allemaal weer aparte cellen. als ik de beveiliging eraf haal dan doet hij het weer.
is dit op een andere manier op te lossen , zodat ik wel het blad wel kan beveiligen??

 

[jack999]

Je hebt het bestand niet geplaatst.

Je kan in de macro aan het begin de beveiliging eraf halen en aan het einde weer terug zetten.
Eraf:
Sheets("Blad1").Unprotect "Wachtwoord"

Weer terug:
Sheets("Blad1").Protect "Wachtwoord"

ja inderdaad het werkt
bedankt

 

[emields]

Je kan het ook zo doen. En als de vraag opgelost is vergeet dan niet in uw eerste post ze als "opgelost" te plaatsen

 

[jack999]

dank je wel @emields , werkt ook fantastisch