【Excel VBA】一键取消excel中所有隐藏sheet

本篇博客分享在Excel中通过设置VBA， 一键取消excel中所有隐藏sheet

1. [Developer] - [Visual Basic]
   复制下列代码

Sub unhide_all_tabs()

Dim i As Integer

For i = 1 To Sheets.Count

    Sheets(i).Visible = True

Next i

End Sub

2. 把该excel另存为 xlam格式
3. 打开新的excel，就可以运行。 也可以自定义添加在工具栏上