短いVBAコードを以下のように改善するにはどうすればよいですか？

Question

ブックのセルを編集しないようにしました。私はこのコードを書いた

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 
    Application.EnableEvents = False 
    Application.Undo 
    Application.EnableEvents = True 
End Sub 

しかし、いくつかのテストの後、私は例外をキャッチしました。私がセルを切り取り、別のセルにペーストすると、許可されます。このような他の例外があるかどうかはわかりません。私の質問は、私はどのように編集されている細胞を保護するのですか？その間にコピーすることができますか？

Answer 1

シートを保護することなく、私は考えることができる唯一のソリューションです：

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) 
    If Application.CutCopyMode = 2 Then Application.CutCopyMode = 0 
End Sub 

は、自己説明である必要があります。）

などすべてのシートrunn：

Sub protectAllSheets() 
    Dim x As Variant 
    For Each x In ThisWorkbook.Sheets 
    x.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True 
    Next 
End Sub 

Answer 2

使用インクルードをインターフェースのみのオプションでは、シートをロックすることができますが、ユーザーインタラクションの場合のみです。

Private Sub Workbook_Open() 
    For Each ws In ThisWorkbook.Sheets 
     ws.Protect UserInterfaceOnly:=True 
    Next 
End Sub