隐藏工作簿中所有工作表的行列标题，VBA一次搞定

Sub HideHeadings()
   Dim wks As Worksheet
   Application.ScreenUpdating = False
    '遍历工作簿中的工作表
   For Each wks In ThisWorkbook.Worksheets
        '名为"示例"的工作表除外
        '你可以修改为自己的工作表名
        If Not wks.Name = "示例"Then
            wks.Activate
            With ActiveWindow
                '隐藏行/列标题
                .DisplayHeadings = False
                '显示工作表标签
                .DisplayWorkbookTabs = True
                '隐藏水平滚动条
                .DisplayHorizontalScrollBar =False
            End With
        End If
   Next wks
   Application.ScreenUpdating = True
End Sub