Excel VisualBasic Script

Sub UnprotectWS()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Protection")
    ws.Unprotect "Excel2003"
End Sub