vba - 使用vba从Excel禁用 "cut"

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

希望有帮助。