Macro protected work sheet
 

Hi All,

I've use macro to protect the sheet with the group function work, as follow:

Sub Auto_Open()
With Worksheets("Sheet1")
.Protect Password:="hi", userinterfaceonly:=True
.EnableOutlining = True
End With
End Sub

It works fine, but i would like to enable the hide/unhide and insert/delete
rows & columns function. ie, the "Protect Sheet" dialog box should be all
checked instead of "Select locked cells" and "Select unlocked cells" be
checked only. How can i do that except manually unprotect the sheet and
protect it back again?

Also, could this macro runs on multiple sheet? if i create a copy of sheet1
could it works on "sheet1 (2)" automatically?

Seems i asked too much...but thanks for your help!!

Macro protected work sheet
 

Henry,

I turned on the Macro Recorder, protected a sheet and checked all the boxes.
This is what I got:

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True,
AllowInsertingRows _
:=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True,
_
AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True

I'm 99.9% sure that the protection will copy over if you make a copy of the
sheet after you do this. I guess you'll know for sure when you try it!

hth,

Doug

"Henry" wrote in message
...
Hi All,

I've use macro to protect the sheet with the group function work, as
follow:

Sub Auto_Open()
With Worksheets("Sheet1")
.Protect Password:="hi", userinterfaceonly:=True
.EnableOutlining = True
End With
End Sub

It works fine, but i would like to enable the hide/unhide and
insert/delete
rows & columns function. ie, the "Protect Sheet" dialog box should be all
checked instead of "Select locked cells" and "Select unlocked cells" be
checked only. How can i do that except manually unprotect the sheet and
protect it back again?

Also, could this macro runs on multiple sheet? if i create a copy of
sheet1
could it works on "sheet1 (2)" automatically?

Seems i asked too much...but thanks for your help!!