如何用Openpyxl禁用Excel特定列/整表的填充柄与单元格拖放？列保护尝试无效

一、整表禁用的可行方案 #

1. 全局界面设置（影响所有Excel文件） #

• 打开Excel选项 → 「高级」→ 「编辑选项」，取消勾选启用填充柄和单元格拖放。

2. 单工作表级VBA控制（仅当前工作表生效） #

按下Alt+F11打开VBA编辑器，定位到目标工作表，粘贴以下代码：

Private Sub Worksheet_Activate()
    Application.CellDragAndDrop = False
End Sub

Private Sub Worksheet_Deactivate()
    Application.CellDragAndDrop = True
End Sub

切换到该工作表时自动禁用拖放/填充柄，离开时恢复，不干扰其他工作表。

3. Python库（如openpyxl）实现保护+禁用 #

你之前的cell.protection = Protection(locked=True)未生效，是因为未启用工作表保护。完整示例：

from openpyxl import Workbook
from openpyxl.styles import Protection
from openpyxl.worksheet.protection import SheetProtection

wb = Workbook()
ws = wb.active

# 锁定所有单元格（或指定列）
for row in ws.iter_rows():
    for cell in row:
        cell.protection = Protection(locked=True)

# 启用工作表保护
ws.protection = SheetProtection(
    password="your_pwd",  # 可选设置保护密码
    selectUnlockedCells=False  # 限制仅能选择锁定单元格
)

wb.save("protected_sheet.xlsx")

通过工作表保护限制编辑，间接阻止拖放，但用户取消保护后会失效。

二、特定列禁用的替代方案（无原生支持，VBA拦截） #

Excel无原生单列禁用填充柄/拖放的功能，可通过VBA事件拦截操作：

在目标工作表的VBA代码窗口中粘贴以下代码（以禁用A列为例）：

' 拦截拖放/填充操作
Private Sub Worksheet_BeforeDropOrPaste(ByVal Cancel As Boolean, ByVal Action As XlDropPasteType, _
    ByVal Source As Range, ByVal Target As Range, ByVal CancelAsMacro As Boolean)
    
    If Not Intersect(Target, Me.Columns("A")) Is Nothing Then
        Cancel = True
        MsgBox "A列禁止拖放和填充", vbExclamation
    End If
End Sub

' 补充拦截批量填充后的修改
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Columns("A")) Is Nothing And Target.Cells.Count > 1 Then
        Application.EnableEvents = False
        Target.ClearContents
        Application.EnableEvents = True
        MsgBox "A列禁止使用填充柄", vbExclamation
    End If
End Sub

该方案无法隐藏填充柄，但能直接阻止对目标列的拖放/填充操作。

内容的提问来源于stack exchange，提问作者Shalu Developer