Kopieren voorkomen, opmaak mogelijk houden

[krkl]

Is het mogelijk om in een werkblad dmv VBA kopiëren te blokkeren, maar van meerdere cellen die zijn doorgetrokken de opmaak wel te kunnen blijven wijzigen.
Onderstaande regel voorkomt kopieren maar de opmaak kan nu alleen per cel.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.CutCopyMode = False
If Selection.Cells.Count > 1 Then
Application.Undo
End If
End Sub

Groeten,

krkl

 

[krkl]

Na zoeken heb ik de regel gevonden.

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

Groeten

krkl