Worksheet Open事件中UserInterfaceOnly保护工作表失效求助

你的代码逻辑本身没问题，出现“工作表未被保护”的错觉，主要是对DrawingObjects参数的作用理解偏差，或者单元格锁定状态没设置到位：

• DrawingObjects:=False的作用是不保护绘图对象（图片、形状等），允许用户编辑这些元素，但工作表的单元格等其他区域依然会处于保护状态——前提是这些单元格的Locked属性为True（默认是True，但如果之前手动修改过就会失效）。
• 如果你发现单元格能被编辑，大概率是因为部分单元格被设置为“未锁定”：选中单元格后右键→「设置单元格格式」→「保护」，取消了“锁定”的勾选。这种情况下即使执行保护代码，未锁定的单元格还是能被编辑，会让你误以为整个工作表没被保护。

修正后的代码 #

先确保单元格处于锁定状态（可选，若从未修改过单元格锁定属性可省略），再执行保护：

Private Sub Workbook_Open()
    Dim wsSheet As Worksheet
    
    For Each wsSheet In Worksheets
        ' 重置所有单元格为锁定状态
        wsSheet.Cells.Locked = True
        ' 保护工作表：允许VBA修改，允许用户编辑图片
        wsSheet.Protect DrawingObjects:=False, UserInterfaceOnly:=True
        ' 如需密码保护，可添加Password参数：Password:="yourPassword"
    Next
End Sub

验证方法 #

执行代码后：

1. 尝试编辑单元格，应该会弹出禁止编辑的提示；
2. 选中图片可以正常移动、修改格式，这就是你要的效果。

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