Knippen en plakken niet toestaan

[krkl]

Is het mogelen om in een bestand wat is beveiligd, maar wel een aantal cellen in een blad vrij zijn om in te vullen knippen/kopieren en plakken te blokkeren.

klaas

 

[peter59]

Hallo

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

Zet bovenstaande code in de desbetreffende sheet.

mvg
Peter

 

[krkl]

Bedankt het werkt.

Klaas