取消保护工作表及对工作表进行排序的代码

正如我给VBA的定义：VBA是个人小型自动化处理的有效工具。利用好了，可以大大提高自己的劳动效率，而且可以提高数据的准确度。VBA系列教程共十套，我已经全部完成，技术工具系列在不断推出。

对于学员而言，如果您是入门阶段可以打包选择7.1.3.9教程，第7是入门，第1是入门后的提高，第3字典是必备的VBA之精华，第9是实用的典型案例讲解；如果您有了一定的VBA基础可以根据自己的需要，进行教程的选择及工具的利用。教程中提供的程序源码文件就如一座大型的代码库支持着大家的工作；工具系列共分两类：一类是容易些的YZ系列，一类是较难些的NZ系列，这些工具是大家学习VBA的好帮手，其中NZ系列工具还有专门版本资料提供给已按部就班学习完我所有教程的学员。

VBA是面向对象编程的语言，博大精深，这里我会分享些一些有用的VBA案例，集合命名为《VBA即用型代码案例（汉英）》和我的教程相互补充。有很多朋友咨询英语和VBA的关系，为了大家更好的领会和掌握VBA中用到的一些英语，这些案例中，我会用英语和汉语同时发布。今日的内容：取消保护工作表及对工作表进行排序的代码

第四章 工作表代码

Worksheet Codes

8  取消保护工作表Un-Protect Worksheet

Sub nzUnprotectWS() '取消保护工作表

    ActiveSheet.Unprotect '123'

End Sub

如果要取消对工作表的保护，可以使用此宏代码。您所要做的就是提及您在保护工作表时使用的密码。

If you want to unprotect your worksheet you can use this macro code. All you have to do just mention your password which you have used while protecting your worksheet.

9  对工作表进行排序Sort Worksheets

Sub nzSortWorksheets() '对工作表进行排序

    Dim i As Integer

    Dim j As Integer

    Dim iAnswer As VbMsgBoxResult

    iAnswer = MsgBox('是否按按升序排序工作表？' & Chr(10) _

        & '单击NO将按降序排序', vbYesNoCancel + vbQuestion + vbDefaultButton1, '排序工作表')

    For i = 1 To Sheets.Count

        For j = 1 To Sheets.Count - 1

            If iAnswer = vbYes Then

                If UCase$(Sheets(j).Name) > UCase$(Sheets(j + 1).Name) Then

                    Sheets(j).Move After:=Sheets(j + 1)

                End If

            Else

                If iAnswer = vbNo Then

                    If UCase$(Sheets(j).Name) < UCase$(Sheets(j + 1).Name) Then Sheets(j).Move After:=Sheets(j + 1)

                End If

            End If

        Next j

    Next i

End Sub

此代码将帮助您根据工作表的名称对工作簿中的工作表进行排序。

This code will help you to sort worksheets in your workbook according to their name.