用VBA在excel中查找隐藏的表单（和隐藏单元格） [英] Finding hidden sheets (and hidden cells) in excel with VBA

问题描述

有没有办法确定Excel工作簿是否具有使用VBA的隐藏单元格和/或隐藏单元格？谢谢！

Is there a way to determine if an Excel workbook has hidden sheets and/or hidden cells using VBA? Thanks!

推荐答案

您可以循环查看workheet.visible和range.hidden属性的工作表，列和行。以下是一些快速和脏的代码，将任何隐藏的元素输出到即时窗口。

You can loop through the worksheets, columns, and rows checking the worksheet.visible and range.hidden properties. Below is some quick and dirty code that will output any hidden elements to the immediate window.

Sub FindHidden()
    Dim wks As Worksheet
    Dim rng As Range

    For Each wks In ThisWorkbook.Worksheets
        If wks.Visible = xlSheetHidden Then
            Debug.Print "Worksheet: " & wks.Name & " is hidden."
        ElseIf wks.Visible = xlSheetVeryHidden Then
            Debug.Print "Worksheet: " & wks.Name & " is very hidden."
        End If

        For Each rng In wks.UsedRange.Rows
            If rng.Hidden = True Then
                Debug.Print "Worksheet: " & wks.Name & " Hidden Row: " & rng.Row
            End If
        Next rng

        For Each rng In wks.UsedRange.Columns
            If rng.Hidden = True Then
                Debug.Print "Worksheet: " & wks.Name & " Hidden Column: " & Left(Replace(rng.Address, "$", ""), 1)
            End If
        Next rng
    Next wks
End Sub

这篇关于用VBA在excel中查找隐藏的表单（和隐藏单元格）的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！