Kopiering af låst celle

Når du vælger arkbeskyttelse, skal du tillade brugere af regnearket at markere låste celler.

Så kan man kopiere, men ikke ændre i cellen.

Vh
Anedi

Hej,

tak for svar, men det har jeg allerede og den tillader stadig ikke at kopiere.

Prøv at se følgende eksempel:

http://gupl.dk/703200/

I celle B3 står en formel =A3+2.
Den kan du kopiere over i et andet ark
I celle C3 har jeg låst og skjult cellens indhold. Hvis du kopierer den får du kun resultatet af formlen (altså 3).

Vh
Anedi

Hej igen,

Har du nogen løsning til hvis man vil kopiere og indsætte i samme ark? Svarende til at man vil indsætte en række og kopiere ovenstående række's formler?

Hilsen
Susanne

I de celler, hvor det fortsat skal være muligt at redigere indholdet skal du hverken låse eller skjule indholdet.

I række 4 i nedenstående eksempel kan du redigere alle celler, mens de øvrige celler i arket er låst.

http://gupl.dk/703201/

Vh
Anedi

Men det løser ikke problemet med at kopiere formlen da den er låst.
Jeg skal kopiere en formel, som er låst fordi man ikke må rette i den, men formlen skal kunne indsættes længere nede på arket.

Hilsen
Susanne

Det var en forkert version der kom op før. Se denne:

http://gupl.dk/703215/


Jeg skal lige forstå det korrekt. Du vil kopiere en formel fra en celle der er låst. Den vil du kopiere over et andet sted i arket, hvor den stadig er låst, og dermed ikke kan redigeres af brugeren?

Ja helt rigtigt forstået.
Hilsen
Susanne

Det kan ikke helt lade sig gøre, så skal arket man kopiere over i låses op midlertidigt imens man kopiere.

lav evt. 2 knapper i dit regneark, med hver af dem her tilknyttet
så ved andre ikke hvad koden er men har mulighed for kortvarigt at låse regnearket op og låse det igen så snart de har kopieret cellen.

Sub Laas_ark
ActiveSheet.Protect Password:="KODE"
End Sub

Sub Laas_ark_op
ActiveSheet.Unprotect Password:="KODE"
End Sub

Du kan også sætte protect makroen ind når man lukker regnearket, det sikre at man ikke glemmer at låse efter sig:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveSheet.Protect Password:="KODE"
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub