多工作表循环中无法隐藏Pivot Chart的Field Buttons问题求助

你的代码存在几个关键问题，导致循环处理图表字段按钮的逻辑失效，以下是修正后的代码及关键修改说明：

关键问题分析 #

• 硬编码图表名称"Chart 1"不可靠：新工作表中创建的图表名称会因已有图表而递增（比如"Chart 2"），直接引用新创建的ChartObject才是稳定的方式
• 工作表解锁逻辑仅处理了原活动表：ShowPages生成的新工作表可能处于保护状态，会阻断后续图表操作
• 依赖Select/Activate易触发错误：直接通过对象引用操作，避免因活动对象变化导致的异常

修正后的VBA代码 #

Sub DivisionMacro()
    Dim ws As Worksheet
    Dim newChart As ChartObject
    Dim originalWs As Worksheet
    Dim strPassword As String ' 请设置你的工作表保护密码
    
    ' 记录原活动工作表，后续可按需还原
    Set originalWs = ActiveSheet
    
    ' 生成按Division2023分页的工作表
    originalWs.PivotTables("PivotTable12").ShowPages PageField:= _
                                                      "User Custom Fields.Division2023"
    
    ' 遍历所有工作表（若只需处理新生成的分页表，可调整为遍历新表集合）
    For Each ws In ActiveWorkbook.Worksheets
        ' 解锁工作表（如果有保护密码，替换strPassword为实际密码）
        On Error Resume Next ' 忽略未保护的表
        ws.Unprotect Password:=strPassword
        On Error GoTo 0
        
        ' 隐藏第一行
        ws.Rows(1).Hidden = True
        
        ' 创建簇状条形图并直接引用该图表对象
        Set newChart = ws.Shapes.AddChart2(216, xlBarClustered).ChartObject
        
        ' 隐藏图表所有字段按钮，无需激活图表
        newChart.Chart.ShowAllFieldButtons = False
        
        ' 重新保护工作表（取消注释并设置密码后启用）
        'ws.Protect Password:=strPassword, DrawingObjects:=True, Contents:=True, Scenarios:=True, _
        'UserInterfaceOnly:=True, AllowFormattingCells:=False, AllowFormattingColumns:=True, _
        'AllowFormattingRows:=False, AllowInsertingColumns:=False, AllowInsertingRows:=False, _
        'AllowInsertingHyperlinks:=False, AllowDeletingColumns:=False, AllowDeletingRows:=False, _
        'AllowSorting:=False, AllowFiltering:=False, AllowUsingPivotTables:=True
    Next ws
    
    ' 还原原活动工作表（可选）
    originalWs.Activate
End Sub

额外说明 #

• 如果仅需要处理ShowPages生成的新工作表，可在生成前记录原工作表数量，循环时只处理新增的表，避免影响原工作表
• On Error Resume Next用于跳过未保护的工作表，防止因部分表无保护密码导致代码中断

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