Macro protected work sheet

[Guest]

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

 

[Doug Glancy]

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