工作表保护时图表代码报错：Axis对象Maximumscale方法失败

我之前也踩过这个Excel保护机制的坑！你遇到的运行时错误，核心原因是**UserInterFaceOnly:=True的保护设置并没有完全放开VBA对图表核心属性的修改权限**，尤其是针对瀑布条形图这类特殊图表的坐标轴刻度设置。

为什么会报错？ #

你可能以为UserInterFaceOnly:=True能让VBA不受任何保护限制，但实际上这个参数的作用是允许用户通过界面操作受保护的工作表（比如编辑单元格、拖动图表），但对于VBA直接修改图表的某些深层属性（比如坐标轴的MaximumScale/MinimumScale），Excel的保护机制依然会拦截——尤其是瀑布图，它的坐标轴逻辑和普通图表不同，保护限制会更严格。

即使你所有代码都针对同一张工作表，并且已经启用宏，只要工作表处于保护状态，修改这些坐标轴属性就会触发权限错误。

解决办法：临时取消保护再重新启用 #

最可靠的方案是在修改图表属性前临时取消工作表保护，完成操作后再重新开启保护（记得保留UserInterFaceOnly:=True，否则下次打开文件这个设置会失效）。

修改你的SetAxes代码如下：

Sub SetAxes()
    Dim objCht As ChartObject, AxisOne As Long, AxisTwo As Long, RangeMin As Double
    Dim RangeMax As Double, rng As Range
    Dim ws As Worksheet
    
    ' 定义目标工作表，方便后续操作
    Set ws = Sheets("Charted")
    
    ' 临时取消工作表保护
    ws.Unprotect Password:="123"
    
    For Each objCht In ws.ChartObjects
        AxisOne = ws.Range("$H$32").Value
        AxisTwo = ws.Range("$H$6").Value
        Set rng = ws.Range("H7:H31")
        RangeMin = Application.WorksheetFunction.Min(rng)
        RangeMax = Application.WorksheetFunction.Max(rng)
        
        With objCht.Chart
            With .Axes(xlValue)
                If AxisOne > AxisTwo Then
                    .MaximumScale = AxisOne + 2000000 + RangeMax
                    .MinimumScale = AxisTwo - 2000000
                Else
                    .MaximumScale = AxisTwo + 500000 - RangeMin
                    .MinimumScale = AxisOne - 2000000
                End If
            End With
        End With
    Next objCht
    
    ' 重新启用工作表保护，保留UserInterFaceOnly设置
    ws.Protect Password:="123", UserInterFaceOnly:=True
    
    Call HideZeroRows
End Sub

额外注意点 #

• 如果你需要在工作簿打开时自动启用UserInterFaceOnly保护，记得在ThisWorkbook的Workbook_Open事件里重新执行保护代码，因为这个设置不会随文件保存而持久化，每次打开文件都需要重新设置。
• 瀑布图的坐标轴本身有特殊的计算逻辑，修改刻度时确保你的数值计算是合理的，避免出现无效的刻度值（比如最大值小于最小值），这也可能引发类似错误。

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