批量隐藏工作簿中所有工作表

1、使用VBA函数必须保证文件格式为xlsm，否则函数会失效。因此，如果数据文件为xls或者xlsx格式，最好事先另存为xlsm格式。

5、继续输入如下代码Sub QXyincang() For x = 1 To Sheets.Count If Sheets(x).Name <> "First Page" Then Sheets(x).Visible = -1 End If Next xEnd Sub这段代码意思是让程序自动统计工作表个数，只要工作表表名不等于First Page，则工作表的可见性为1及隐藏。

7、点击窗体按钮查看效果。