如何在Excel中仅禁用特定列（如A1-A100）的复制、粘贴与剪切功能

要实现仅对指定列范围禁用复制、粘贴、剪切，其余区域正常操作，可以通过VBA结合工作表保护功能来实现。以下是完整的实现代码及说明：

Sub KorumaAyari()
    Dim ws As Worksheet
    Dim rngUnprotected As Range
    Dim cell As Range
    
    ' 指定目标工作表，替换为你的工作表名称
    Set ws = ThisWorkbook.Sheets("Sayfa1")
    
    ' 先保护整个工作表
    ws.Protect
    
    ' 解除需要允许操作的列范围的锁定（示例为A-E列）
    Set rngUnprotected = ws.Range("A:E")
    rngUnprotected.Locked = False
    
    ' 重新保护工作表，设置密码及允许的操作（此处允许格式化单元格）
    For Each cell In ws.UsedRange
        If cell.Locked = True Then
            cell.Worksheet.Protect Password:="şifre", AllowFormattingCells:=True
        End If
    Next cell
    
    ' 禁止选择锁定单元格，阻止复制、剪切等操作
    ws.EnableSelection = xlNoSelection
End Sub

关键配置说明 #

• 工作表名称：将"Sayfa1"修改为你需要设置的工作表名称
• 允许操作的范围：将"A:E"替换为你希望正常使用复制/粘贴/剪切的列（或单元格范围，比如"A1:A100"）
• 保护密码：将"şifre"替换为自定义密码，若不需要密码可删除Password:="şifre",这部分参数

代码逻辑解释 #

1. 先对整个工作表进行保护，默认所有单元格处于锁定状态
2. 解除指定允许操作区域的单元格锁定，使其不受保护限制
3. 重新配置工作表保护规则，可添加密码及允许的额外操作（如格式化单元格）
4. 通过EnableSelection = xlNoSelection禁止选择锁定单元格，从而阻止对这些单元格的复制、剪切操作，粘贴也会因无法选中目标锁定单元格而受限

内容的提问来源于stack exchange，提问作者S D