If ThisWorkbook.Worksheets(“计算”).ProtectContents = True Then
ThisWorkbook.Worksheets(“计算”).Unprotect (“clglc123”)
End If

版权声明：本文为lidapengwww原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://www.cnblogs.com/lidapengwww/p/12626515.html