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

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

• 著者：冥狐
• 記事へのリンク：https://www.darkfox.top/posts/ee3605ad/
• 著作権表示：このブログ内のすべての記事は、特別な記載がない限り の下のライセンスで保護されています。