如何在无需解锁的情况下允许用户对受保护Excel共享工作表执行整行剪切操作

方法1：调整工作表保护权限配置（无需代码） #

该方案适用于Excel 365/2021及以上版本，可直接通过内置权限配置实现差异化授权：

• 选中目标工作表，点击「审阅」选项卡 → 「保护工作表」
• 在弹出的设置窗口中，先点击「用户/组」按钮，添加需要开放整行剪切权限的特定人员账号
• 单独为该授权用户勾选「允许此工作表的所有用户进行」列表中的以下选项：
  • 选定锁定单元格
  • 选定未锁定单元格
  • 编辑对象
  • 删除行（剪切后需要删除原行必须勾选该项）
  • 插入行（剪切后需要粘贴到其他位置可按需勾选）
• 普通用户权限保留原有可编辑范围的配置即可，输入保护密码确认设置生效

注意：低版本Excel不支持单独为指定用户配置差异化操作权限，仅支持统一设置所有用户的可操作范围，这类情况推荐使用VBA方案。

方法2：VBA宏方案（兼容全Excel版本） #

如果需要更精细的权限控制或者使用低版本Excel，可通过受保护的VBA宏实现：

• 按下Alt+F11打开VBA编辑器，双击左侧面板中对应的工作表名称，打开代码编辑窗口
• 粘贴如下代码，按注释修改对应参数后保存：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 替换为你要授权的实际用户名，多用户用英文逗号分隔
    Const AUTH_USER_LIST As String = "张三,李四,test_user"
    If InStr(1, AUTH_USER_LIST, Environ("Username")) > 0 Then
        ' 授权用户选中整行时临时解锁对应行
        If Target.EntireRow.Select = True Then
            Me.Unprotect Password:="替换为你的工作表保护密码"
            Target.EntireRow.Locked = False
            Me.Protect Password:="替换为你的工作表保护密码", UserInterfaceOnly:=True
        End If
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 剪切操作完成后自动重新锁定行
    Me.Unprotect Password:="替换为你的工作表保护密码"
    Target.EntireRow.Locked = True
    Me.Protect Password:="替换为你的工作表保护密码", UserInterfaceOnly:=True
End Sub

• 将工作簿保存为xlsm格式（启用宏的工作簿），按需调整宏信任级别即可正常使用

提示：该方案不会影响原有可编辑范围的权限配置，非授权用户无法触发临时解锁逻辑，安全性有保障。

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