新手上路-批量隐藏及取消隐藏工作表

LIUYIWEI

Sub 隐藏工作表()
Dim x As Integer
For x = 1 To Sheets.Count - 1
Sheets(x).Visible = 0
'Sheets(x).Visible = 0 隐藏工作表
'Sheets(x).Visible = -1 取消隐藏
'Sheets(x).Visible = 1 取消隐藏
Next
End Sub
Sub 取消隐藏()
Dim x As Integer
For x = 1 To Sheets.Count - 1
Sheets(x).Visible = 1
'Sheets(x).Visible = 0 隐藏工作表
'Sheets(x).Visible = -1 取消隐藏
'Sheets(x).Visible = 1 取消隐藏
Next
End Sub

新手上路，入门手敲第一段代码，请各位大神多多指教！