Expand/Collapse Grouped Data in Protected Worksheet

I've created a worksheet that will be distributed to 300+ users in an
investment group. It contains formulas and computations in cells that could
easily be overwritten by spreadsheet novices, so I've protected the worksheet
so users can only edit the cells they need to for the sheet to return the
info they need. The problem is: after protecting the worksheet, Excel won't
allow the user to expand or collapse grouped rows that list detailed
information on each step of the calculations. This is inconvenient because
I'd like to give the users the ability to expand the spreadsheet to see
what's going on, but collapse the extra data for printing purposes. MS
Support said that this functionality wasn't available (but it should be), so
I'm curious if anyone has ideas for a good workaround? The spreadsheet can
be grabbed from www.realrobert.com/foreclosure/worksheet.xls - password is
blank to unlock. Any feedback would be greatly appreciated!

Robert,

I modified your workbook slightly, added some code and a couple
of buttons from the Forms toolbar. I believe it does what you want.

1. Insert a row just above "auction items", call it Details and format it
the same as the Summary row.
2. Clear the outline
3. Add a button to cell B25 with the caption "Details"
4. Add a button to cell C25 with the caption "Summary"
5. Add a module to your workbook and insert the following code...
'-----------------------------------------------
Sub ShowTheDetails()
ActiveSheet.Unprotect
If Rows(27).Hidden = True Then
Rows("27:43").Hidden = False
Else
Rows("27:43").Hidden = True
End If
ActiveSheet.Protect
End Sub


Sub ShowTheSummary()
ActiveSheet.Unprotect
If Rows(45).Hidden = True Then
Rows("45:53").Hidden = False
Else
Rows("45:53").Hidden = True
End If
ActiveSheet.Protect
End Sub
'----------------------------------------------

6. Assign ShowTheDetails macro to the "Details" button.
7. Assign ShowTheSummary macro to the "Summary button.

I will be glad to send you the workbook with the changes in it, if you
would like to see it. Remove XXX from my email address.

Regards,

Jim Cone
San Francisco, USA
[email protected]XX


"Robert Slattery" <[email protected]> wrote in message
news:[email protected]...
> I've created a worksheet that will be distributed to 300+ users in an
> investment group. It contains formulas and computations in cells that could
> easily be overwritten by spreadsheet novices, so I've protected the worksheet
> so users can only edit the cells they need to for the sheet to return the
> info they need. The problem is: after protecting the worksheet, Excel won't
> allow the user to expand or collapse grouped rows that list detailed
> information on each step of the calculations. This is inconvenient because
> I'd like to give the users the ability to expand the spreadsheet to see
> what's going on, but collapse the extra data for printing purposes. MS
> Support said that this functionality wasn't available (but it should be), so
> I'm curious if anyone has ideas for a good workaround? The spreadsheet can
> be grabbed from www.realrobert.com/foreclosure/worksheet.xls - password is
> blank to unlock. Any feedback would be greatly appreciated!

I had a very similar requirement with grouped columns.

Dave Peterson (thanks agin Dave) posted the following and it worked fine for
me. The only qualifiication is that someone who knows what they are doing
can edit the macro and see your password - not a problem in my case as I am
trying to protect the sheet from novices no experts!

'If you already have the outline applied, you can protect the worksheet in
code
(auto_open/workbook_open??).

Option Explicit
Sub auto_open()
With Worksheets("sheet1")
.Protect Password:="hi", userinterfaceonly:=True
.EnableOutlining = True
End With
End Sub

It needs to be reset each time you open the workbook. (excel doesn't remember
it after closing the workbook.)

If you're new to macros, you may want to read David McRitchie's intro at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm'


"Robert Slattery" wrote:

> I've created a worksheet that will be distributed to 300+ users in an
> investment group. It contains formulas and computations in cells that could
> easily be overwritten by spreadsheet novices, so I've protected the worksheet
> so users can only edit the cells they need to for the sheet to return the
> info they need. The problem is: after protecting the worksheet, Excel won't
> allow the user to expand or collapse grouped rows that list detailed
> information on each step of the calculations. This is inconvenient because
> I'd like to give the users the ability to expand the spreadsheet to see
> what's going on, but collapse the extra data for printing purposes. MS
> Support said that this functionality wasn't available (but it should be), so
> I'm curious if anyone has ideas for a good workaround? The spreadsheet can
> be grabbed from www.realrobert.com/foreclosure/worksheet.xls - password is
> blank to unlock. Any feedback would be greatly appreciated!

You can actually protect the project from most people.

Next time you're in the VBE, select that project.
Then Tools|VBAProject Properties|Protection Tab

But this protection can be broken in a matter of seconds--if the user knows how.

But it does keep most out.

Colin_Bizfine wrote:
>
> I had a very similar requirement with grouped columns.
>
> Dave Peterson (thanks agin Dave) posted the following and it worked fine for
> me. The only qualifiication is that someone who knows what they are doing
> can edit the macro and see your password - not a problem in my case as I am
> trying to protect the sheet from novices no experts!
>
> 'If you already have the outline applied, you can protect the worksheet in
> code
> (auto_open/workbook_open??).
>
> Option Explicit
> Sub auto_open()
> With Worksheets("sheet1")
> .Protect Password:="hi", userinterfaceonly:=True
> .EnableOutlining = True
> End With
> End Sub
>
> It needs to be reset each time you open the workbook. (excel doesn't remember
> it after closing the workbook.)
>
> If you're new to macros, you may want to read David McRitchie's intro at:
> http://www.mvps.org/dmcritchie/excel/getstarted.htm'
>
> "Robert Slattery" wrote:
>
> > I've created a worksheet that will be distributed to 300+ users in an
> > investment group. It contains formulas and computations in cells that could
> > easily be overwritten by spreadsheet novices, so I've protected the worksheet
> > so users can only edit the cells they need to for the sheet to return the
> > info they need. The problem is: after protecting the worksheet, Excel won't
> > allow the user to expand or collapse grouped rows that list detailed
> > information on each step of the calculations. This is inconvenient because
> > I'd like to give the users the ability to expand the spreadsheet to see
> > what's going on, but collapse the extra data for printing purposes. MS
> > Support said that this functionality wasn't available (but it should be), so
> > I'm curious if anyone has ideas for a good workaround? The spreadsheet can
> > be grabbed from www.realrobert.com/foreclosure/worksheet.xls - password is
> > blank to unlock. Any feedback would be greatly appreciated!

--

Dave Peterson

I have the same problem like Robert, but I seem not to understand the
instructions that you gave Robert. I’m not familiar with macro. Is there away
it could be done directly with excel or do I have to learn macro.

"Jim Cone" wrote:

> Robert,
>
> I modified your workbook slightly, added some code and a couple
> of buttons from the Forms toolbar. I believe it does what you want.
>
> 1. Insert a row just above "auction items", call it Details and format it
> the same as the Summary row.
> 2. Clear the outline
> 3. Add a button to cell B25 with the caption "Details"
> 4. Add a button to cell C25 with the caption "Summary"
> 5. Add a module to your workbook and insert the following code...
> '-----------------------------------------------
> Sub ShowTheDetails()
> ActiveSheet.Unprotect
> If Rows(27).Hidden = True Then
> Rows("27:43").Hidden = False
> Else
> Rows("27:43").Hidden = True
> End If
> ActiveSheet.Protect
> End Sub
>
>
> Sub ShowTheSummary()
> ActiveSheet.Unprotect
> If Rows(45).Hidden = True Then
> Rows("45:53").Hidden = False
> Else
> Rows("45:53").Hidden = True
> End If
> ActiveSheet.Protect
> End Sub
> '----------------------------------------------
>
> 6. Assign ShowTheDetails macro to the "Details" button.
> 7. Assign ShowTheSummary macro to the "Summary button.
>
> I will be glad to send you the workbook with the changes in it, if you
> would like to see it. Remove XXX from my email address.
>
> Regards,
>
> Jim Cone
> San Francisco, USA
> [email protected]XX
>
>
> "Robert Slattery" <[email protected]> wrote in message
> news:[email protected]...
> > I've created a worksheet that will be distributed to 300+ users in an
> > investment group. It contains formulas and computations in cells that could
> > easily be overwritten by spreadsheet novices, so I've protected the worksheet
> > so users can only edit the cells they need to for the sheet to return the
> > info they need. The problem is: after protecting the worksheet, Excel won't
> > allow the user to expand or collapse grouped rows that list detailed
> > information on each step of the calculations. This is inconvenient because
> > I'd like to give the users the ability to expand the spreadsheet to see
> > what's going on, but collapse the extra data for printing purposes. MS
> > Support said that this functionality wasn't available (but it should be), so
> > I'm curious if anyone has ideas for a good workaround? The spreadsheet can
> > be grabbed from www.realrobert.com/foreclosure/worksheet.xls - password is
> > blank to unlock. Any feedback would be greatly appreciated!
>