Excel funktioner

hvorfor beskytter du ikke bare de celler/sheets det drejer sig om...?

I arkets eget kodemodul (højreklik på arkfanen, vælg vis koder) indsættes disse to subs. Når arket aktiveres ændres ctrl-x til at køre en makro "msg"
istedet for cut. Når arket deaktiveres sættes ctrl-x tilbage til normal.
makroen "Msg" indsættes i et normalt modul.

Private Sub Worksheet_Activate()
Application.OnKey "^x", "msg"
End Sub

Private Sub Worksheet_Deactivate()
Application.OnKey "^x"
End Sub

Indsættes i et normalt modul
Sub msg()
MsgBox ("nej, det er ikke muligt at klippe")
End Sub

Hvis du med et Ark mener en projektmappe skal du indsætte samme kode, men i modulet ThisWorkbook
Private Sub Workbook_Activate()  og
Private Sub Workbook_DeActivate()

Husk på at man stadig kan vælge editmenuen og vælge Cut ... Jeg ville nok beskytte indholdet af cellerne istedet...

/Jennemaan

yesss, jennemaan, du har helt ret. Menupunktet skal også deaktiveres og det samme skal ikonet også.

kan man ikke disable Selection.Cut ??????????

jennemaan. Det er ikke muligt at beskytte cellen, da det stadigt skal være muligt at skrive i cellen.

Her er mit problem:

Jeg har i celle A1 værdigen 1 og i cellen A2 værdigen 2 i celle A3 regner den summen du af de to celler.

Hvis jeg så klipper A2 over i B2 vil regne reglen skifte fra =A1+A2 til =A1+B2
Dette skal ikke være muligt den MÅ IKKE ÆNDRE PÅ REGNEREGLERNE.

du beskytter da bare de enkelte celler der indeholder formler så!

Der findes en mulighed:
1. Under functioner -> Indstillinger -> fanebladet rediger slå træk/slip redigering fra
2. I arkets kodemodul indsætter du

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.CutCopyMode = False
End Sub

dette slår cutcopy fra hvergang man skifter celle

En variant der gør det muligt at kopiere men ikke klippe

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
with application
if .CutCopyMode=xlCut then .CutCopyMode = False
en with
End Sub

bak > hvad hvis du klipper til et andet prg (f.eks. notepad?)...

/Jennemaan

Så vil excel-formlen jo ikke ændre sig automatisk..
/bak

Jennemann > man kan ikke beskytte sig ud af problemet. Selvom formelcellen er beskyttet vil den ændre sig ved drag&drop og cut hvor mærkeligt det end lyder.

ikke hvis du har låst cellen...

/Jennemaan

bak - Perfekt
Mange TAK

Det var denne løsning som jeg brugte:

1. Under functioner -> Indstillinger -> fanebladet rediger slå træk/slip redigering fra
2. I arkets kodemodul indsætter du

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.CutCopyMode = False
End Sub