excel - 如何编写VBA代码来隐藏Excel中的所有列标题和行标题？

Question

Private Sub hideHeadings()
  Dim obj As Window
  For Each obj In Application.Windows
    obj.DisplayHeadings = False
  Next obj

End Sub

以上是我的尝试，当我录制代码来执行此操作时，它会变为 ActiveWindow.DisplayHeadings = false。但我一定错过了一些东西。请帮忙提前致谢。

Answer 1

我认为除了迭代每个工作表之外，您无能为力。我用这段代码成功了

Private Sub hideHeadings()
  Dim wrkbk As Workbook
  Dim wrksh As Worksheet
  Dim prev As Window

  Set prev = ActiveWindow

  For Each wrkbk In Workbooks
    For Each wrksh In wrkbk.Worksheets
        wrksh.Activate
        ActiveWindow.DisplayHeadings = False
    Next wrksh
  Next wrkbk

  prev.Activate

End Sub