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

Question

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

End Sub

The above is my attempt, as when I recorded code to do it it goes ActiveWindow.DisplayHeadings = false. But I must be missing something. Please help thanks in advance.

Answer 1

I think there is nothing you can do with that except iterating on each worksheet. I succeed with this code

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

Answer 2

Or in short:

Sub HideShowRowColumnHeaders()
     ActiveWindow.DisplayHeadings = Not ActiveWindow.DisplayHeadings
End Sub

Answer 3

The code below toggles between hiding and showing the headings depending on what the their current status is. It could be more useful as sometimes we don't want to hide or show the headings for all the sheets in the workbook but the one we are currently working with.

Sub HideShowRowColumnHeaders()

    Dim StatusOfHeadings As Boolean

    StatusOfHeadings = ActiveWindow.DisplayHeadings

    If StatusOfHeadings Then
            ActiveWindow.DisplayHeadings = False
        Else
        ActiveWindow.DisplayHeadings = True
    End If

End Sub