Hello,

I am new to Excel VBA, and using Excel 2007.

I have a worksheet where I want the user to be able to edit cells (delete,
copy, paste, sort) but **disallow** the ability to unhide columns.

(I use a column for conditional formatting and do not want the user to be
able to see or manipulate this column). (Note: the column that contains the
expression for conditional formatting is on the user data sheet because Excel
will not allow conditional formatting to refer to a cel or cells on another
sheet. :( )

I am struggling with the proper parameter with the .Protection method.
Here's what I have:

With Worksheets("UserData")
.Protect Password:="ThePassword", AllowFormattingColumns:=False,
Contents:=False

End With

I'm either getting the ability to unhide columns and edit data, or cells are
locked from editing and cannot unhide columns.

What am I doing wrong?

Thanks in advance.

--Dan

Use this instead. Hope this helps! If so, let me know, click "YES" below.

With Worksheets("UserData")
.Protect Password:="ThePassword", DrawingObjects:=False,
Contents:=False
End With

--
Cheers,
Ryan


"Dan" wrote:

Hello,

I am new to Excel VBA, and using Excel 2007.

I have a worksheet where I want the user to be able to edit cells (delete,
copy, paste, sort) but **disallow** the ability to unhide columns.

(I use a column for conditional formatting and do not want the user to be
able to see or manipulate this column). (Note: the column that contains the
expression for conditional formatting is on the user data sheet because Excel
will not allow conditional formatting to refer to a cel or cells on another
sheet. :( )

I am struggling with the proper parameter with the .Protection method.
Here's what I have:

With Worksheets("UserData")
.Protect Password:="ThePassword", AllowFormattingColumns:=False,
Contents:=False

End With

I'm either getting the ability to unhide columns and edit data, or cells are
locked from editing and cannot unhide columns.

What am I doing wrong?

Thanks in advance.

--Dan

I can still unhide the columns after the code runs.

"Ryan H" wrote:

Use this instead. Hope this helps! If so, let me know, click "YES" below.

With Worksheets("UserData")
.Protect Password:="ThePassword", DrawingObjects:=False,
Contents:=False
End With

--
Cheers,
Ryan


"Dan" wrote:

Hello,

I am new to Excel VBA, and using Excel 2007.

I have a worksheet where I want the user to be able to edit cells (delete,
copy, paste, sort) but **disallow** the ability to unhide columns.

(I use a column for conditional formatting and do not want the user to be
able to see or manipulate this column). (Note: the column that contains the
expression for conditional formatting is on the user data sheet because Excel
will not allow conditional formatting to refer to a cel or cells on another
sheet. :( )

I am struggling with the proper parameter with the .Protection method.
Here's what I have:

With Worksheets("UserData")
.Protect Password:="ThePassword", AllowFormattingColumns:=False,
Contents:=False

End With

I'm either getting the ability to unhide columns and edit data, or cells are
locked from editing and cannot unhide columns.

What am I doing wrong?

Thanks in advance.

--Dan

Sometimes Obvious is so hard to find...

Select the range I want the user to be able to change...
<format Cels<Protection Uncheck <Locked

Then run the code:

With Worksheets("UserData")
.Protect Password:="ThePassword"
End With

(I feel silly.)
--Dan

"Ryan H" wrote:

Use this instead. Hope this helps! If so, let me know, click "YES" below.

With Worksheets("UserData")
.Protect Password:="ThePassword", DrawingObjects:=False,
Contents:=False
End With

--
Cheers,
Ryan


"Dan" wrote:

Hello,

I am new to Excel VBA, and using Excel 2007.

I have a worksheet where I want the user to be able to edit cells (delete,
copy, paste, sort) but **disallow** the ability to unhide columns.

(I use a column for conditional formatting and do not want the user to be
able to see or manipulate this column). (Note: the column that contains the
expression for conditional formatting is on the user data sheet because Excel
will not allow conditional formatting to refer to a cel or cells on another
sheet. :( )

I am struggling with the proper parameter with the .Protection method.
Here's what I have:

With Worksheets("UserData")
.Protect Password:="ThePassword", AllowFormattingColumns:=False,
Contents:=False

End With

I'm either getting the ability to unhide columns and edit data, or cells are
locked from editing and cannot unhide columns.

What am I doing wrong?

Thanks in advance.

--Dan