小编Ric*_*ion的帖子

我正在尝试替换ctrl + c,因此它只会复制受保护工作表上的可见单元格.试图解决这个问题我偶然发现了这个帖子(vba excel只复制按键ctrl + c上的可见单元格)

以下代码(由Siddharth-Rout建议)可用,但仅适用于未受保护的工作表:

Private Sub Workbook_Open()
     Application.OnKey "^c", "Copy"
End Sub

Sub Copy()
    Dim rng As Range

    On Error GoTo Whoa

    If Not Selection Is Nothing Then
        Set rng = Selection.Cells.SpecialCells(xlCellTypeVisible)
        rng.Copy
    End If

LetsContinue:
    Exit Sub
Whoa:
    MsgBox Err.Description, vbCritical, "Error Number : " & Err.Number
    Resume LetsContinue
End Sub

我尝试取消保护,复制,然后重新保护,但它删除了副本.我需要保护最终的表格.任何帮助,将不胜感激.