防止在锁定的单元格中粘贴值

Question

我有一张包含一些锁定单元格和一些输入/解锁单元格的工作表。因为输入单元格已格式化，我只允许它们粘贴值（使用简单的宏来粘贴值并分配控件 CTRL V）但是，这个宏让我将值粘贴到锁定的单元格中，其中我的公式会被覆盖。

如果我进行特殊复制粘贴 (ALT E + S + V) 我是不允许的如果它影响锁定的单元格，则粘贴。我需要分配了 CTRL V 的宏来粘贴值的原因是因为我的用户不知道如何复制粘贴特殊但只知道标准 CTRL V，在没有宏的情况下会破坏格式。

关于如何将我的 CTRL V 宏限制为仅将值粘贴到未锁定单元格的任何帮助？

编辑

我用 CTRL V 启动的宏：

Sub PasteasValue() 
Selection.PasteSpecial Paste:=xlPasteValues 
End Sub

Answer 1

在没有看到您的代码的情况下，我们只能为您提供一个 sn-p。基本上，你可以测试它是否被锁定了

ActiveCell.Locked

如果是，这将返回一个True。用您的单元格标识替换ActiveCell。

Answer 2

我在这里找到了解决方案：Excel VBA code to Force Values Only Paste causes strange behavior when pasting objects

ThisWorkbook 中放置的以下代码允许正常复制粘贴并将格式重新调整为目标工作表特定格式。

    Dim UndoString As String, srce As Range
    On Error GoTo err_handler
    UndoString = Application.CommandBars("Standard").Controls("&Undo").List(1)
    If Left(UndoString, 5) <> "Paste" And UndoString <> "Auto Fill" Then
        Exit Sub
    End If
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Undo
    If UndoString = "Auto Fill" Then
        Set srce = Selection
        srce.Copy
        Target.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        Application.SendKeys "{ESC}"
        Union(Target, srce).Select
    Else
        Target.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    End If
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    Exit Sub
err_handler:
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

Answer 3

另一种方法不是覆盖Ctrl-V，而是使用上下文菜单。

在您要控制的工作表中，放置以下事件处理程序：

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim tHasLock As Boolean
    If IsNull(Target.Locked) Then    ' at least one locked cell
        tHasLock = True
    Else
        tHasLock = Target.Locked ' will only be true if the cell(s) are locked
    End If

    If tHasLock And Application.CutCopyMode <> False Then
        Cancel = True
        CommandBars("MyMenu").ShowPopup
    End If
End Sub

如果有东西被剪切或复制并且单元格被锁定，这将激活。否则你会得到正常的菜单。

在您要创建“MyMenu”的工作簿中。您只能在应用程序中执行此操作一次，并且每次启动应用程序时都必须执行此操作。您可以在 Workbook_Open 上执行此操作。

Private Sub CreateMenu()
Dim tMyMenu As CommandBar
Dim tMenuItem As CommandBarControl

    Set tMyMenu = Application.CommandBars.Add("MyMenu", msoBarPopup)
    Set tMenuItem = tMyMenu.Controls.Add(ID:=370) ' Standard Paste values menu item
    tMenuItem.Caption = "Paste &Values"

End Sub

应该发生的是，这将允许粘贴发生在锁定的单元格中。

在进一步测试中 - 这没有按预期粘贴（我将自己起草一个关于此的问题以用于其他目的，因为我为工作制作的特殊菜单确实会粘贴到锁定的单元格中！）。下面是一个替代方案。

Private Sub CreateMenu()
Dim tMyMenu As CommandBar
Dim tMenuItem As CommandBarControl

    Set tMyMenu = Application.CommandBars.Add("MyMenu", msoBarPopup)
    'Set tMenuItem = tMyMenu.Controls.Add(ID:=370) ' Standard Paste values menu item
    'tMenuItem.Caption = "Paste &Values"
    Set tMenuItem = tMyMenu.Controls.Add(msoControlButton)
    With tMenuItem
        .Caption = "Special Paste"
        .OnAction = "PasteasValue" '"MySpecialPasteMacroName"
    End With
End Sub

如果您已经创建了特殊菜单并尝试再次创建它，那么您将收到运行时错误（运行时错误“5”）。只需使用Application.CommandBars("MyMenu").Delete 就可以了。