VBA kode til at låse paste

Kan det ikke fikses ved hjælp af en makro, som du knytter til en CTRL+ et eller andet taste kombination ? ?

Spørgsmål ikke forstået....

"...kun kan indsætte værdier i celler."

Hmmm - hvad er det så man IKKE må indsætte i celler? Tekst eller?

Jeg tror det er "Indsæt Speciel" "Indsæt Værdier" han hentyder til.

På den måde bibeholder cellerne du paster i alle de andre egenskaber de har, så som font, fontstørrelse osv.

Aha - det kunne nu også forstås anderledes (at man godt kan paste '1234' men ikke 'Hej')

Spørgsmålet er som dragonknight skriver:
"Indsæt Speciel" "Indsæt Værdier"
På den måde bibeholder cellerne du paster i alle de andre egenskaber de har, så som font, fontstørrelse osv.VBA kode til dette(paste er låst:man kan kun indsætte værdier,ikke formatering(fyldfarve,rammer,mønstre,osv.)
mvh. Skodaen

Har du prøvet at indspille en macro til dette ? ?

Ja det har jeg sådan her ser den ud:
Sub test()
    Range("A1").Select
    Selection.Copy
    Range("B1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub
Men problemet er:hvis en bruger kopier fks. Range("B11"),derefter paster i fks.
Range("C21"),uden at markere"kun værdier",så ryger formateringen i Range("C21")
Derfor skal det kun være muligt at paste værdier.
mvh.skodaen

Det jeg mener, er at indspille en macro:

Først skal du markere en celle, og CTRL+c, så der er et eller andet at paste. Marker et tomt felt. Derefter skal du:

Funktioner > Macro > indspil ny macro > Giv den et navn > giv den en CTRL+ et eller andet (CTRL+Q f.eks) > Gem den et passende sted. Når du er tilfreds trykker du på OK.

Alt hvad du gør herefter bliver rekorderet, derfor:

Klik på Rediger > klik på Indsæt specielt > Marker værdier og tryk ok. Nu skal du stoppe rekorderingen, og det gør du ved at trykke firkanten i det lille vindue der kom frem.

Nu kan du bruge CTRL+Q til at paste specielt, og alle de andre egenskaber bevares.

Sådan her:
Sub pasteværdier()
'
' pasteværdier Makro
' Makro indspillet 24-08-2005 af skodaen
'
' Genvejstast:Ctrl+q
'
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub
Det virker,men Kan man ikke lave en kode der ændre default indstillingen for paste
så den ikke er all,men values evt. under workbook open
mvh. skodaen

???????xlPasteValues

Jeg anvender selv Paste special meget, og det er ikke lykkedes mig at finde anden metode end en macro, desværre  !

Nu er det heller ikke paste du anvender, men paste special, og der er jo netop for ikke at få alle egenskaberne fra den kopierede celle med over.

Jeg lægger det som et svar, og kunne du ikke bruge noget af det jeg skrev, så ser du bare bort fra det.

Tak for indsatsen og jeg blev da klogere.
Lars(skodaen)