UnlockExcel

宏代码

Sub DeletePW()

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFiltering:=True

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, AllowFiltering:=True

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFiltering:=True

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, AllowFiltering:=True

ActiveSheet.Unprotect

End Sub

如果你觉得还不错的话，打赏一杯可乐如何？

• Post author: 冥狐
• Post link: https://www.darkfox.top/posts/ee3605ad/
• Copyright Notice: All articles in this blog are licensed under unless otherwise stated.