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