工作表保护与解除

Sub 工作表保护与解除()
ActiveSheet.protect Password:="wshzw"    '为工作表保护加口令 
ActiveSheet.Unprotect Password:="wshzw"  '解除工作表保护
End Sub