Excel VBA实现保护解锁所有的工作表
- 作者: 幸福从此刻开始
- 来源: 51数据库
- 2022-08-17
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
推荐阅读
