With Sheets("Sheet1")
        .Unprotect "password"
        .Cells.Locked = False
        .Columns(1).Locked = True
        .protect "password"
    End With