How to protect selected cells in vba

    Please paste these lines in VBA macro.

 'To protect the cells
    Worksheets(DestWS).Range("A9:F75").Locked = True ' To lock
    Worksheets(DestWS).Range("G9:t75").Locked = False ' To edit and unlock
    ActiveSheet.Protect