Sharing protected worksheets with outlining

  • Thread starter Thread starter mct28
  • Start date Start date
M

mct28

My goal is to simultaneously share with multiple users a workbook
containing protected sheets that have the outlining (group/ungroup) or
auto filter feature functional with protected/unprotected cells.

I have a workbook with 30+ worksheets in it. Each sheet has the
outlining or auto filter feature in it. Some cells are protected and
some are not. When I protected the sheet, the outline and auto filter
feature did not work. So I placed a larger version of the following
VB module to overcome this.


Option Explicit
Sub auto_open()
With Worksheets("Sheet1")
..Protect Password:="hi", userinterfaceonly:=True
..EnableOutlining = True
End With
With Worksheets("Sheet2")
..Protect Password:="hi", userinterfaceonly:=True
..EnableOutlining = True
End With
With Worksheets("Sheet3")
..Protect Password:="hi", userinterfaceonly:=True
..EnableAutoFilter = True
End With
With Worksheets("Sheet4")
..Protect Password:="hi", userinterfaceonly:=True
..EnableAutoFilter = True
End With
End Sub

Now the filters and outlining work fine in the protected sheet until I
try to "Share and track changes" with this file. Is there some type
of work around in VB that will allow the file to be shared and
protected at the same time?

Thanks,
Michael
 
The bad news is that you have to set the protection mode when you do the
..enableoutlining.

And you can't change the worksheet's protection in a shared workbook.

(There's lots of stuff you can't do with shared workbooks. Take a look at
"features that are unavailable in shared workbooks" in excel's help.)
 
Back
Top