工作表的保护与去除保护

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