1、使用VBA函数必须保证文件侮恩格式为xlsm，否则函数会失效。因此，如果数据文件为xls或者xlsx格式，最好事先另存为xlsm格式。
2、使用VBA必须要借助开发工具。如果工具栏没有开发工具，可以在EXCEL选项中勾选调出开发工具。
3、在开发工具栏下点击Visual Basic，进入VB程序编写界面。
4、输入如下代码
Sub yincang()
For x = 1 To Sheets.Count
欠诸 If Sheets(x).Name <> "First Page" Then
Sheets(x).Visible =0
End If
Next x
End Sub
这段代码意思是让程序自动统计工作表个数，只要工作表表名不等于First Page，则工作表的可见性为0及隐藏。
5、继续输入如下代码
Sub QXyincang()
For x = 1 To Sheets.Count
If Sheets(x).Name <> "First Page" Then
Sheets(x).Visible = -1
End If
肤炼劣 Next x
End Sub
这段代码意思是让程序自动统计工作表个数，只要工作表表名不等于First Page，则工作表的可见性为1及隐藏。
6、返回EXCEL主界面，在开发工具下插入窗体控件，命名为“隐藏”，并指定宏为sheet1.yincang。
同理插入窗体控件命名为“取消隐藏”，并指定宏为SHEET1.QXyincang。
7、点击窗体按钮查看效果。
