Excel VisualBasic Script

Sub UnprotectWorkbook()
    Dim wb As Workbook
    Set wb = ThisWorkbook
    wb.Unprotect "Excel2003"
End Sub