如何用VBA为Excel编辑范围分配用户权限并解决运行时错误

1. 无需模拟点击「权限」按钮，直接通过VBA操作权限集合 #

Excel的AllowEditRange对象本身提供了Permissions属性，直接通过这个属性就能添加用户权限，不需要模拟GUI点击对话框，这种方式更稳定且符合VBA对象模型的设计。

示例代码：

Sub AddUserPermissionToEditRange()
    Dim allowedEditRng As AllowEditRange
    Dim perm As Permission
    
    ' 创建允许编辑区域（若已存在可跳过，或先通过Find方法查找）
    Set allowedEditRng = ActiveSheet.Protection.AllowEditRanges.Add( _
        Title:="AWorker", _
        Range:=Range("B3,D3:D42,D44:D46"), _
        Password:="WorkerPassword")
    
    ' 为指定员工添加编辑权限
    Set perm = allowedEditRng.Permissions.Add( _
        UserName:="user@company.com", ' 替换为员工的企业邮箱或域UserID
        Permission:=xlPermissionEdit)
    
    ' 可选：设置权限验证密码
    perm.Password = "WorkerPassword"
End Sub

2. 无需手动填充对话框，直接通过代码指定用户 #

「选择用户、计算机、服务账户或组」对话框的核心功能是向权限集合添加用户，直接用Permissions.Add方法传入用户标识即可：

• 域环境下UserID格式为DOMAIN\Username
• 云环境或企业邮箱直接使用完整邮箱地址

完全不需要模拟对话框操作，这种代码方式的可靠性远高于GUI模拟。

3. Run-time error '5' 的可能原因及排查方向 #

• RMS Client兼容性问题：你使用的是32位Excel 2108，需确认RMS Client 2.1的位数与Office匹配。若安装的是64位RMS Client，会和32位Office产生兼容性冲突，导致调用参数无效。
• Office组件缺失：检查Office安装时是否勾选了「Information Rights Management」相关组件。可通过「文件>选项>信任中心>信任中心设置>受保护的视图」查看IRM是否正常启用，若未启用，需修复Office安装补全组件。
• 权限限制：单个工作表允许编辑区域的用户权限分配通常不需要管理员权限，但如果域环境有特殊组策略限制，可能导致操作失败。可在有管理员权限的机器上测试代码，排除权限因素。
• 参数或操作逻辑错误：
  • 传入的用户名格式不正确（如域用户未加域名前缀）
  • 目标用户在当前域/组织中不存在
  • 工作表未启用保护（AllowEditRange需配合工作表保护生效，可在添加权限后执行ActiveSheet.Protect Password:="SheetPassword"）

微软并未移除AllowEditRange和Permissions相关功能，Excel 365 2108版本仍支持该对象模型，错误大概率是环境兼容性或代码参数问题。

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