copy paste not working in protected sheet with selection change event

[kamranyd]

I want to copy and paste cell values. my worksheet is protected and has selection change event. when I unprotect my sheet copy paste work. but wont work in protected sheet. is there any work around for copy paste work like it work in normal sheet.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Unprotect
Application.ScreenUpdating = False
If Application.CutCopyMode = False Then
Application.Calculate
Application.ScreenUpdating = True
End If
ActiveSheet.Protect
End Sub

 

[bobsan42]

Not afaik.