怎样撤销工作表的保护?

TL50FH

撤销工作表保护
Public Sub 撤销保护()
    Dim ws As Worksheet
    Set ws = Worksheets(1)    '指定要撤销保护的工作表
    ws.Unprotect    '没有密码保护时使用此语句
    ws.Unprotect Password:="aaa"     '有密码保护时使用此语句
    Set ws = Nothing
End Sub