excel vba 遍历非隐藏工作表，不管隐藏的工作表

1、直接在Sheet2标签上点右键，弹出的菜单上面有个“隐藏”，点后就可以隐藏它了，想取消隐藏直接在其它工作表标签上点右键——取消，选想取消隐藏的工作表即可。这种方法较方便，取消也方便。当然也可以保护工作薄让人无法轻易取消隐藏。
2、可以用Alt+F11 打开VBA编辑器，在左侧上方，选中Sheet2，然后在左下方的属性框内，将Visible（最下面）设成“0－XlsheetHidden”即第二个。也可以实现隐藏Sheet2
3、按Alt+F11 打开VBA编辑器，在左侧上方，选中ThisWorkBook，复制代码
Private Sub Workbook_Open()
Sheet2.Visible = xlSheetVeryHidden
End Sub
到右边空白处，保存工作薄，重启时启用宏，也可以实现隐藏Sheet2的效果。

参考资料里含操作图，也是我答的。

请在遍历循环体内加一层判断：

For i = 1 To Sheets.Count
    If Sheets(i).Visible <> 0 Then
        '...
    End If
Next

Sub jklkljl()
Dim Sh As Worksheet

For Each Sh In Sheets

If Sheets(Sh.Name).Visible = ture Then
MsgBox Sh.Name
End If
Next

End Sub