VBA通过Visible属性显示与隐藏工作表的代码

【#文档大全网# 导语】以下是®文档大全网的小编为您整理的《VBA通过Visible属性显示与隐藏工作表的代码》，欢迎阅读！

以下代码功能为，隐藏工作表。其中，使用到了Visible属性中的五类隐藏方法。

Sub MySheetsHide()

　MsgBox "第一次隐藏工作表sheet1"

　Worksheets("sheet1").Visible = False

　MsgBox "显示工作表sheet1"

　Worksheets("sheet1").Visible = True

　MsgBox "第二次隐藏工作表sheet1"

　Worksheets("sheet1").Visible = xlSheetHidden

　MsgBox "显示工作表sheet1"

　Worksheets("sheet1").Visible = True

　MsgBox "第三次隐藏工作表sheet1"

　Worksheets("sheet1").Visible = xlSheetHidden

　MsgBox "显示工作表sheet1"

　Worksheets("sheet1").Visible = xlSheetVisible

　MsgBox "第四隐藏工作表sheet1"

　Worksheets("sheet1").Visible = xlSheetVeryHidden

　MsgBox "显示工作表sheet1"

　Worksheets("sheet1").Visible = True

　MsgBox "第五隐藏工作表sheet1"

　Worksheets("sheet1").Visible = xlSheetVeryHidden

　MsgBox "显示工作表sheet1"

　Worksheets("sheet1").Visible = xlSheetVisible

End Sub

注意：本示例演示了隐藏和显示工作表的各种情形。其中，使用xlSheetVeryHidden常量来隐藏工作表，将不能通过选择工作表菜单栏中的“格式”→“工作表”→“取消隐藏”命令来取消隐藏。

一次性显示所有被隐藏的工作薄的代码：

Sub ShowAllMySheets()

　MsgBox "使当前工作簿中的所有工作表都显示(即将隐藏的工作表也显示)"

　Dim ws As Worksheet

　For Each ws In Sheets

ws.Visible = True

　Next ws

End Sub

本文来源：https://www.wddqxz.cn/4f87e02eccbff121dd36832e.html