工作表的保护与去除保护
If ThisWorkbook.Worksheets("计算").ProtectContents = True Then
ThisWorkbook.Worksheets("计算").Unprotect ("clglc123")
End If
If ThisWorkbook.Worksheets("计算").ProtectContents = True Then
ThisWorkbook.Worksheets("计算").Unprotect ("clglc123")
End If