Password protect sheet and enable outlinig

[cogswel__cogs]

Hi,
I am trying to save a tab as a new sheet with password protection and outline enabled.
When I open the saved workbook, the tab is there and protected but the outline is not enabled.
Can anyone tell me what I am doing wrong.

Thanks for any help.


Sheets("Dem").Visible = True
Sheets("Dem").Copy

ActiveSheet.Protect Password:="astro", UserInterfaceOnly:=True
ActiveSheet.EnableOutlining = True


Application.ActiveWorkbook.SaveAs Filename:=xPath & "\Individual\" & v & z & "\" & VC & ".xlsx"
Application.ActiveWorkbook.Close False


End If

 

[Peter_SSs]

The UserInterfaceOnly:=True is needed for the outlining to work. Unfortunately it does not hold between sessions so when you close the workbook that setting is lost.
See here for a possible solution (which may or may not suit you)

BTW, I suggest that you update your Account details (or click your user name at the top right of the forum) so helpers always know what Excel version(s) & platform(s) you are using as the best solution often varies by version. (Don’t forget to scroll down & ‘Save’)

 

[cogswel__cogs]

That worked in theory.
However I need to now save the file as a xlms.
I am going to start another post on how I could do that.
Thanks for the help

 

[Peter_SSs]

You're welcome. Sorry there isn't a simpler solution.