30个有用的Excel VBA代码（1~5）

1.显示多个隐藏的工作表

如果你的工作簿里面有多个隐藏的工作表，你需要花很多时间一个一个的显示隐藏的工作表。

下面的代码，可以让你一次显示所有的工作表

Sub UnhideAllWoksheets() Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets ws.Visible = xlSheetVisible Next ws End Sub

2.隐藏除了活动工作表外的所有工作表

如果你做的报表，希望隐藏除了报表工作表以外的所有工作表，则可以用一下代码来实现：

Sub HideAllExcetActiveSheet()Dim ws As Worksheet  For Each ws In ThisWorkbook.Worksheets  If ws.Name <> ActiveSheet.Name Then ws.Visible = xlSheetHidden  End if Next ws End Sub

3.用VBA代码按字母的顺序对工作表进行排序

如果你有一个包含多个工作表的工作簿，并且希望按字母对工作表进行排序，那么下面的代码，可以派上用场。

Sub SortSheetsTabName() Application.ScreenUpdating = False Dim ShCount As Integer, i As Integer, j As Integer ShCount = Sheets.Count For i = 1 To ShCount - 1 For j = i + 1 To ShCount If Sheets(j).Name < Sheets(i).Name Then Sheets(j).Move before:=Sheets(i) End If Next j Next i Application.ScreenUpdating = True End Sub

4.一次性保护所有的工作表

如果工作薄里面有多个工作表，并且希望保护所有的工作表，那么下面的代码，可以派上用场。

Sub ProtectAllSheets() Dim ws As Worksheet Dim password As String '用你想要的密码替换Test123 password = 'Test123' For Each ws In Worksheets  ws.Protect password:=password Next ws End Sub

5.一次性取消所有的工作表保护

如果你保护了你所有的工作表，那么你只需要修改一下代码，就可以取消所有工作表的保护。

Sub ProtectAllSheets() Dim ws As Worksheet Dim password As String '用你想要的密码替换Test123 password = 'Test123' For Each ws In Worksheets ws.Unprotect password:=password Next ws End Sub

需要注意的是，取消保护工作表的密码， 要与锁定工作表的密码相同，否则程序会抛出异常（出错）。