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!!

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" <[email protected]> wrote in message
news:[email protected]...
> 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!!