Excel VBA实现保护解锁所有的工作表

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