I would like to protect my spreadsheet, but allow user a edit range.

I used following code:

Sheets(wsDestination).Select
ActiveSheet.Protection.AllowEditRanges(1).Delete
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.Protection.AllowEditRanges.Add Title:=wsDestination & " Range
", Range:=Range("G12:Q20")

If I have "ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True" first then the code failed on the last line. It makes sense,
because the spreadsheet already protected.

When I tried last line first, it protects all the spreadsheet.
If I do not uses "ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True" code, then the whole spreadsheet does not protect at all.

Are there anything wrong I did?

Any information is great appreciated,

This works for me:

ActiveSheet.Protection.AllowEditRanges(1).Delete
ActiveSheet.Protection.AllowEditRanges.Add Title:=wsDestination _
& " Range", Range:=Range("D3:H12")
ActiveSheet.Protect DrawingObjects:=True, Contents:=True _
, Scenarios:=True

What is the value of wsDestination?

Regards
Rowan

"Souris" wrote:

I would like to protect my spreadsheet, but allow user a edit range.

I used following code:

Sheets(wsDestination).Select
ActiveSheet.Protection.AllowEditRanges(1).Delete
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.Protection.AllowEditRanges.Add Title:=wsDestination & " Range
", Range:=Range("G12:Q20")

If I have "ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True" first then the code failed on the last line. It makes sense,
because the spreadsheet already protected.

When I tried last line first, it protects all the spreadsheet.
If I do not uses "ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True" code, then the whole spreadsheet does not protect at all.

Are there anything wrong I did?

Any information is great appreciated,

Thanks it works now,

Thanks millions,

"Rowan" wrote:

This works for me:

ActiveSheet.Protection.AllowEditRanges(1).Delete
ActiveSheet.Protection.AllowEditRanges.Add Title:=wsDestination _
& " Range", Range:=Range("D3:H12")
ActiveSheet.Protect DrawingObjects:=True, Contents:=True _
, Scenarios:=True

What is the value of wsDestination?

Regards
Rowan

"Souris" wrote:

I would like to protect my spreadsheet, but allow user a edit range.

I used following code:

Sheets(wsDestination).Select
ActiveSheet.Protection.AllowEditRanges(1).Delete
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.Protection.AllowEditRanges.Add Title:=wsDestination & " Range
", Range:=Range("G12:Q20")

If I have "ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True" first then the code failed on the last line. It makes sense,
because the spreadsheet already protected.

When I tried last line first, it protects all the spreadsheet.
If I do not uses "ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True" code, then the whole spreadsheet does not protect at all.

Are there anything wrong I did?

Any information is great appreciated,