|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
打开VBE 直接复制以下代码到sheet1 就可以去除加密
- Sub pj
- ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
- , AllowFiltering:=True, AllowUsingPivotTables:=True
- ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
- False, AllowFiltering:=True, AllowUsingPivotTables:=True
- ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:= _
- False, AllowFiltering:=True, AllowUsingPivotTables:=True
- ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
- True, AllowFiltering:=True, AllowUsingPivotTables:=True
- ActiveSheet.Unprotect
- end sub
复制代码
|
|