Beskyt en vilkårlig celle mod overskrivning

I Excel går man normalt den anden vej - altså beskytter HELE arket, pånær de celler man ønsker adgang til.

Alle celler I Excel er som udgangspunkt beskyttede, derfor vil det kræve en \"voldsom\" operation at afbeskytte alle 256*65536 celler for derefter at beskytte en enkelt.

Det må også være temmeligt besværligt i SuperCalc, for normalt er der mange flere celler som skal beskyttes end celler, som ikke skal beskyttes.

Denne makro kan bruges:
Inden du bruger den første gang skal du dog fjerne den standardbskyttelse som ligger på alle celler.
Det gøres ved af markere alle celler og højeklikke, vælg FORMATER CELLER, vælg fanen \"beskyttelse\", afmarker \"låst\", tryk \"OK\".

Sub BeskytCelle()
   
    \'Afbeskytter hele arket
    ActiveSheet.Unprotect
   
    \'Vælger den aktive celle og låser den
    ActiveCell.Select
    Selection.Locked = True
   
    \'Beskytter arket igen
    ActiveSheet.Protect

End Sub

De regneark jeg oprettede i Super-calc var kun
til brug for mig selv i det daglige, og beskyt-
telsen skulle kun gælde formler og totaler.
Derfor var funktionen med at pege på én celle
og vælge beskyttelse af netop den meget bekvem.
Da jeg gik over til Excel, og iøvrigt arbejdede
på samme måde her, virkede det irriterende og
besværligt at funktionen manglede.
Den har jeg fået nu. Tak for hjælpen!

PS De indledende øvelser har jeg også lagt ind
i en makro, så nu kan jeg arbejde igen.

Udmærket!