Protect macro and comments
 

Hi Folks,

I have a simple macro that protects all sheets in a workbook, yet allows
users to select and format any cell locked or not... I'm looking to add to
this to allow users to insert comments but I do not see how that is an option
when protection is taking place through the macro. As understand it you can
select an Edit Objects check box if you are protecting sheets via the tools
-- protect sheets option.

below is my simple macro.

Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Protect Password:="###", AllowFormattingCells:=True
Next ws

Protect macro and comments
 

DrawingObjects:=False,
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware



"Stephen"
wrote in message
Hi Folks,
I have a simple macro that protects all sheets in a workbook, yet allows
users to select and format any cell locked or not... I'm looking to add to
this to allow users to insert comments but I do not see how that is an option
when protection is taking place through the macro. As understand it you can
select an Edit Objects check box if you are protecting sheets via the tools
-- protect sheets option.
below is my simple macro.

Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Protect Password:="###", AllowFormattingCells:=True
Next ws

Protect macro and comments
 

That's the one!

Thanks a bunch for the post, very helpful.

"Jim Cone" wrote:


DrawingObjects:=False,
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware



"Stephen"
wrote in message
Hi Folks,
I have a simple macro that protects all sheets in a workbook, yet allows
users to select and format any cell locked or not... I'm looking to add to
this to allow users to insert comments but I do not see how that is an option
when protection is taking place through the macro. As understand it you can
select an Edit Objects check box if you are protecting sheets via the tools
-- protect sheets option.
below is my simple macro.

Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Protect Password:="###", AllowFormattingCells:=True
Next ws