Træk og slip

kan man ikke sætte password på de enkelte felter..?

Du kan beskytte hele arket, hvorved cellernes "locked" property kommer i spil

Kopier alt nedenfor ind i et model. Nu vil "Sub DisableControls()" gøre klip inaktiv, "Sub EnableControls()" vil gøre den aktiv igen. Du skal muligvis udskifte DisableControl 21 med 20 - afhængig af version.
*****************
Option Explicit
Sub DisableControls()
    'Disable Cut
    DisableControl 21
    Application.OnKey "^" & Chr(88), ""
    Application.OnKey "^" & Chr(120), ""
End Sub
Function DisableControl(ID As Long)
    Dim CB As CommandBar
    Dim c As CommandBarControl
    For Each CB In Application.CommandBars
        Set c = CB.FindControl(ID:=ID, recursive:=True)
        On Error Resume Next
        c.Enabled = False
        Err.Clear
        On Error GoTo 0
    Next
End Function
Sub EnableControls()
    'Enable Cut
    EnableControl 21
    Application.OnKey "^" & Chr(88), ""
    Application.OnKey "^" & Chr(120), ""

End Sub
Function EnableControl(ID As Long)
    Dim CB As CommandBar
    Dim c As CommandBarControl
    For Each CB In Application.CommandBars
        Set c = CB.FindControl(ID:=ID, recursive:=True)
        On Error Resume Next
        c.Enabled = True
        Err.Clear
        On Error GoTo 0
    Next
End Function

Øhh så er der lige træk og slip tilbage kan jeg se !

åh ja

Måske mangler du denne linie
Application.CellDragAndDrop = False

og så er der sneget sig en fejl ind  :
Sub EnableControls()
    'Enable Cut
    EnableControl 21
    Application.OnKey "^" & Chr(88), ""
    Application.OnKey "^" & Chr(120), ""

End Sub
ændres til
Sub EnableControls()
    'Enable Cut
    EnableControl 21
    Application.OnKey "^" & Chr(88)
    Application.OnKey "^" & Chr(120)
End Sub

Men så er den der også - tak BAK :-)