noob question with line/field protection

[kaeptn]

Hi,
i want to protect just one line in the whole sheet.
But it's not working :-(
Can anybody give my a hint what i'm doing wrong ?

Here is the code i wrote:

Sheets("tabelle1").Activate
Cells.Select
Selection.Locked = False
Range(A1, Z1).Locked = True
Sheets("tabelle1").Protect Password:="test", contents:=True

Thanks !

 

[rmikesmith]

Try

Range("A1").EntireRow.Locked = True

Regards,
Mike

 

[SkipVought]

Hi,

Problem's in your Range statement...

    With Sheets("tabelle1")
        .Cells.Locked = False
        .Range([A1], [Z1]).Locked = True
        .Protect Password:="test", contents:=True
    End With

Skip,

_{[red]Be Advised![/red] A chicken, who would drag a wagon across the road for 2 cents, is…
POULTRY in motion to PULLET for a PALTRY amount!}

 

[PHV]

Replace this:
Range(A1, Z1).Locked = True
with this:
Range("A1:Z1").Locked = True

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886