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