应用场景：返回主页面，显示某一个工作表，其余工作表均隐藏，即始终只显示一个工作表。
以下代码显示或者说是回到名称为“Main“的工作表，可以把它放到一个命令按钮里：
'代码基本逻辑：首先，我们把要显示的工作表激活并显示出来，把它的名称存在'一个变量（curSht）中，然后对所有工作表名称进行循环比对，民丰县利南烹饪有限公司把名称不同于'curSht的所有工作表给它深度隐藏。注意：深度隐藏（xlSheetVeryHidden）后， 当代家庭教育'用鼠标右键不能取消隐藏。而xlSheetHidden则可以用鼠标右键取消隐藏， 安达市和兆净水器有限公司详见'代码。Sub BackTo() Dim Sht As Worksheet Dim curSht As String On Error Resume Next Sheets("Main").Activate ActiveSheet.Visible = xlSheetVisible '显示工作表 curSht = ActiveSheet.Name '遍历所有工作表，公司简介隐藏不需要显示的工作表 For Each Sht In Excel.ThisWorkbook.Worksheets If Sht.Name <> curSht Then '设置工作表对象的Visible属性 'Sht.Visible = xlSheetHidden Sht.Visible = xlSheetVeryHidden End If NextEnd Sub
或者放在某一个模块里，在命令按钮里调用：
图片成功案例
隐藏其他工作表，这个跟上面的有点类似，可以用在如下场景：除当前工作表外，还有其他工作表处于显示状态，我现在只要显示当前工作表，其他工作表给我隐藏起来：
Sub xHide() Dim Sht As Worksheet Dim curSht As String curSht = ActiveSheet.Name ActiveSheet.Visible = xlSheetVisible For Each Sht In Excel.ThisWorkbook.Worksheets If Sht.Name <> curSht Then Sht.Visible = xlSheetVeryHidden End If NextEnd Sub
显示所有工作表：
图片
See you next time! 本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请点击举报。