VBA即用型代码手册：工作表的保护及工作表的排序

我给VBA下的定义：VBA是个人小型自动化处理的有效工具。可以大大提高自己的劳动效率，而且可以提高数据的准确性。我这里专注VBA,将我多年的经验汇集在VBA系列九套教程中。

作为我的学员要利用我的积木编程思想，积木编程最重要的是积木如何搭建及拥有积木。在九套教程中我给出了大量的积木，同时讲解了如何搭建。为了让学员拥有更多的积木，我开始着手这部《VBA即用型代码手册（汉英）》的创作，这部手册约600页，集合约500多个的案例，案例我用汉语和英语同时发布，一方面学员从中可以更好的领会和掌握VBA中用到的一些英语知识，另一方面，大家可以看到各种各样的积木。这部手册是大家学习和工作中的不可多得的实用资料。今日的内容是：VBA即用型代码手册：工作表的保护及工作表的排序

【分享成果，随喜正能量】人与人，人与事之间，皆有缘相由心生，境随心转，你把对方当成是菩萨，他就是菩萨，你把对方当作是魔鬼，他就是魔鬼​​。

WorksheetCodes

SubnzProtectWS()'保护工作表

"123",True,True

Sub

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

本节内容参考程序文件：

SubnzUnprotectWS()'取消保护工作表

"123"

Sub

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

ctingyourworksheet.

本节内容参考程序文件：

SubnzSortWorksheets()'对工作表进行排序

DimiAsInteger

DimjAsInteger

DimiAnswerAsVbMsgBoxResult

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

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

Fori=1

Forj=1

IfiAnswer=vbYesThen

IfUCase$(Sheets(j).Name)UCase$(Sheets(j+1).Name)Then

Sheets(j).MoveAfter:=Sheets(j+1)

If

Else

IfiAnswer=vbNoThen

IfUCase$(Sheets(j).Name)UCase$(Sheets(j+1).Name)ThenSheets(j).MoveAfter:=Sheets(j+1)

If

If

Nextj

Nexti

Sub

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

Thiscodewillhelpyoutosortworksheetsinyourworkbookaccordingtotheirname.

本节内容参考程序文件：

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：