<em>Excel</em>工作簿用VBA怎么隐藏工作表？-excel vba工作表隐藏,exc

这个只能用vba来解决，具体代码就不写了，给你个思路，首先表1-表10全部隐藏，每个表名旁边添加一个按钮，填表必须通过这个按钮进入，点击抄按钮就根据前面单元格的√判断此表是否填写，如不需袭要填写，就跳出个对话框说此表不需要填写，如需要填写，该表取消隐藏，然后进入该表，隐藏表格清单，在需要填写的每个表格里面设置一个返回的按钮，点击则取消表格清单的隐藏，返回表格清单，然后隐藏你填写的那张表。这样文件每次都只保留zhidao一个非隐藏的工作表。代码应该很简单，就是需要每个表格设置一下。

你要隐藏copy哪个工作就写哪个工作表
如
Sub aa()
Sheets("sheet1").Visible = 0
End Sub
这是隐百藏sheet1这个工作表的，=2时尝试深度隐藏，=-1时显示工作表，=0时一般隐度藏，可问在工作表点右键取消隐藏，深度隐藏时答，在工作表中不能取消隐藏。

Sub 显示首页来()
Dim sht As Worksheet
For Each sht In Worksheets
 If sht.Name <> "首页工自作表百" Then sht.Visible = False
Next
End Sub
Sub 显示首页及度A系列知工道作表()
Dim sht As Worksheet
For Each sht In Worksheets
 If sht.Name = "首页工作表" Or Left(sht.Name, 1) = "A" Then
   sht.Visible = True
 Else
   sht.Visible = False
End If
Next
End Sub
Sub 显示首页及B系列工作表()
Dim sht As Worksheet
For Each sht In Worksheets
 If sht.Name = "首页工作表" Or Left(sht.Name, 1) = "B" Then
   sht.Visible = True
 Else
   sht.Visible = False
End If
Next
End Sub