Range cell protection not working

[reneuend]

I created a named range and then used vba to project this area of the worksheet, but what really happens is that the whole worksheet is protected. What am I doing wrong?

note: PWD is defined as a public const elsewhere
note: protectarea is a named range of a block of cells I want protected.

    dim rRange as range
 
    Set rRange = ActiveWorkbook.Sheets("Model").Range("protectarea")
    rRange.Locked = True
    ActiveSheet.Protect Password:=PWD, userinterfaceonly:=True

thx for any help!

 

[VoG]

Cells are locked by default so you will need

Dim rRange As Range
 
    Set rRange = ActiveWorkbook.Sheets("Model").Range("protectarea")
    Cells.Locked = False
    rRange.Locked = True
    ActiveSheet.Protect Password:=PWD, userinterfaceonly:=True

 

[reneuend]

(edit) Thanks Vog for the very quick reply!!!


Nevermind...found it.
I needed to add the following first:

ActiveSheet.Cells.Locked = False