'Το παρακάτω κώδικα μπορούμε να χρησιμοποιήσουμε για να ενεργοποιήσουμε το copy paste και από τα μενού αλλά και από το πληκτρολόγιο.

'Μπορείτε να το εισάγετε σε ένα Module και από εκεί να το χρησιμοποιήσετε στις εφαρμογές σας.

Sub DisableCopyCutAndPaste()
    EnableControl 21, False   ' cut
    EnableControl 19, False   ' copy
    EnableControl 22, False   ' paste
    EnableControl 755, False  ' pastespecial
    Application.OnKey "^c", "Dummy"
    Application.OnKey "^v", "Dummy"
    Application.OnKey "+{DEL}", "Dummy"
    Application.OnKey "+{INSERT}", "Dummy"
    Application.CellDragAndDrop = False
    Application.OnDoubleClick = "Dummy"
    CommandBars("ToolBar List").Enabled = False
End Sub

' Το παρακάτω κώδικα μπορούμε να χρησιμοποιήσουμε για να απενεργοποιήσουμε το copy paste και από τα μενού αλλά και από το πληκτρολόγιο.

Sub EnableCopyCutAndPaste()
    EnableControl 21, True   ' cut
    EnableControl 19, True   ' copy
    EnableControl 22, True   ' paste
    EnableControl 755, True  ' pastespecial
    Application.OnKey "^c"
    Application.OnKey "^v"
    Application.OnKey "+{DEL}"
    Application.OnKey "+{INSERT}"
    Application.CellDragAndDrop = True
    Application.OnDoubleClick = ""
    CommandBars("ToolBar List").Enabled = True
End Sub

Αγαπητέ φίλε

σε όλα τα φύλλα EXCEL που ανοίγω μου έχει απενεργοποιημένα τα copy/cut/paste χωρίς να καταλάβω πως έγινε αυτό.

Δοκίμασα αυτή τη ρουτίνα αλλά μου βγάζει μήνυμα λάθους.

δηλαδή δημιουργώ μια μακροεντολή με όνομα EnableCopyCutAndPaste

και στο editor της VBA αβτιγράφω τον κώδικα :

Sub EnableCopyCutAndPaste()
    EnableControl 21, True   ' cut
    EnableControl 19, True   ' copy
    EnableControl 22, True   ' paste
    EnableControl 755, True  ' pastespecial
    Application.OnKey "^c"
    Application.OnKey "^v"
    Application.OnKey "+{DEL}"
    Application.OnKey "+{INSERT}"
    Application.CellDragAndDrop = True
    Application.OnDoubleClick = ""
    CommandBars("ToolBar List").Enabled = True
End Sub

είναι κάτι που δεν κάνω σωστά ;

Ευχαριστώ