清华大佬耗费三个月吐血整理的几百G的资源，免费分享！....>>>

Public Function ProtectAllSheets()
Dim sheet As Worksheet
For Each sheet In ActiveWorkbook.Worksheets
sheet.EnableSelection = xlUnlockedCells
sheet.Protect Password:="Password", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True
Next sheet
End Function

Public Function UnprotectAllSheets()
Dim sheet As Worksheet
For Each sheet In ActiveWorkbook.Worksheets
sheet.Unprotect Password:="Password"
Next sheet
End Function