"cut"をvbaで無効にする

Question

このトピックでは多くのスレッドを読みましたが、そこに見つかったコードは動作していないようです。私はExcelのスプレッドシートから「カット」機能を無効にしようとしています。アイコンをグレーアウトしたいのですが。

私はこのコードを使用している

：

Sub WorkSheet_Activate() 
Application.CommandBars.FindControl(ID:=21).Enabled = False 
End Sub 

しかし、私はまだ何の問題もなく機能を「カット」を使用することができます.... また、私はあなたがカットを無効にすることができますいくつかの機能があります知っています/コピー/貼り付けができますが、このスプレッドシートでコピーと貼り付けを許可する必要があります。

ご協力いただきありがとうございます。

クリステン

Answer 1

チェック参照のためのリンク - Disable Cut

はこのような何かを試してみてください：

Option Explicit 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _ 
ByVal Target As Excel.Range) 

Select Case Application.CutCopyMode 
Case Is = False 
'do nothing 
Case Is = xlCopy 
'do nothing 
Case Is = xlCut 
MsgBox "Please DO NOT Cut and Paste. Use Copy and Paste; then delete the source." 
Application.CutCopyMode = False 'clear clipboard and cancel cut 
End Select 

End Sub 

はそれがお役に立てば幸いです。