|
こんな感に怪しそうな全てのイベントに..。
抜けているのがあったら追加して下さい。
イベントが発生しない時もあるみたいなので気休め程度ですが。
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Nocut
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Nocut
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Nocut
End Sub
Private Sub Workbook_WindowDeactivate(ByVal Wn As Excel.Window)
Nocut
End Sub
Sub Nocut()
If Application.CutCopyMode = 2 Then
Application.CutCopyMode = False
End If
End Sub
|
|