如何通过VBA在受保护工作表中修改图表坐标轴？

问题根源分析 #

• 错误使用ProtectionMode判断保护状态：该属性仅针对共享工作簿的保护模式，普通工作表保护应使用ProtectContents（判断内容是否受保护）或Protected（判断工作表是否被保护）。
• 重新保护逻辑错误：原代码在重新保护环节误用Unprotect方法，实际应调用Protect。
• 缺少必要权限：修改图表坐标轴需要在保护时允许操作绘图对象，否则即使临时解除保护，后续重新保护的参数也无法满足修改需求。

修正后的代码 #

Function ChangeChartAxisMaxScale(upper)
    Dim pass As String
    pass = "myPassword"

    Dim wasProtected As Boolean
    Dim ws As Worksheet
    
    Set ws = ThisWorkbook.ActiveSheet
    ' 正确判断工作表是否处于保护状态
    wasProtected = ws.ProtectContents
    If wasProtected Then
        ws.Unprotect Password:=pass
    End If

    ' 修改Y轴最大值
    ws.ChartObjects("SUBPlot").Chart.Axes(xlValue).MaximumScale = upper

    ' 重新保护工作表并配置必要权限
    If wasProtected Then
        ws.Protect Password:=pass, _
                   UserInterfaceOnly:=True, _
                   AllowFiltering:=True, _
                   DrawingObjects:=True, _
                   AllowFormattingObjects:=True ' 新增允许格式化对象，确保图表可修改
        ws.EnableOutlining = True
    End If

End Function

关键修改点 #

• 替换保护状态判断逻辑：用ws.ProtectContents替代ws.ProtectionMode，准确识别普通工作表的保护状态。
• 修正重新保护方法：将Unprotect改为Protect，并添加AllowFormattingObjects:=True参数，允许对图表等绘图对象进行格式化操作。
• 简化逻辑分支：直接通过wasProtected = ws.ProtectContents赋值，减少冗余判断。

额外注意事项 #

• 若工作表为共享工作簿，才需使用ProtectionMode，但共享工作簿的VBA支持有限，建议避免在此状态下执行此类操作。
• 确保密码pass与工作表保护密码完全一致，注意大小写区分。
• 可在解除保护后立即用MsgBox ws.ProtectContents验证状态，排查密码是否正确、保护是否真的解除。

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