ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Grouping and outline (https://www.excelbanter.com/excel-programming/317505-grouping-outline.html)

swami

Grouping and outline
 
Hi,
I need to operate the outline symbols ( +OR - , when the data grouping is
done) in a protected mode. At present Excel does not allows it . Any idea. My
excel sheet is being created by a macro and assigns all the formulas,
datagrouping . When i run from macro and check it is working. Once i save the
file and reopen it i am getting problem.


JulieD

Grouping and outline
 
Hi swami

(a re-work of a post by Dave Peterson)

If you protect the worksheet in code you can enable this functionality ...
the code needs to go in the "ThisWorkbook" module as

Private Sub Workbook_Open()
With Worksheets("sheet1")
.Protect Password:="hi", userinterfaceonly:=True
.EnableOutlining = True
End With
End Sub
---
where sheet1 is the name of the worksheet in question and "hi" is your
password.

Hope this helps
Cheers
JulieD


"swami" wrote in message
...
Hi,
I need to operate the outline symbols ( +OR - , when the data grouping
is
done) in a protected mode. At present Excel does not allows it . Any idea.
My
excel sheet is being created by a macro and assigns all the formulas,
datagrouping . When i run from macro and check it is working. Once i save
the
file and reopen it i am getting problem.




Debra Dalgleish

Grouping and outline
 
If you protect the worksheet programmatically, you can enable outlining,
and you will be able to use the groups that you have created.

The following code goes in the ThisWorkbook module:

Private Sub Workbook_Open()
With Worksheets("Sheet1")
.EnableOutlining = True
.Protect Password:="password", _
Contents:=True, UserInterfaceOnly:=True
End With

End Sub

To paste the code into the ThisWorkbook module:

Right-click on the Excel icon, to the left of the File menu
Choose View Code
Paste the code where the cursor is flashing.


swami wrote:
Hi,
I need to operate the outline symbols ( +OR - , when the data grouping is
done) in a protected mode. At present Excel does not allows it . Any idea. My
excel sheet is being created by a macro and assigns all the formulas,
datagrouping . When i run from macro and check it is working. Once i save the
file and reopen it i am getting problem.



--
Debra Dalgleish
Excel FAQ, Tips & Book List
http://www.contextures.com/tiptech.html


swami

Grouping and outline
 
HI ,
thanks for the reply.
But as i already mentioned , i am generating about 100 workbook and assign
formulas . all my workbooks are automatically created by macros. Now how to
assign the below code to each and every work book. Any idea

thanks


"Debra Dalgleish" wrote:

If you protect the worksheet programmatically, you can enable outlining,
and you will be able to use the groups that you have created.

The following code goes in the ThisWorkbook module:

Private Sub Workbook_Open()
With Worksheets("Sheet1")
.EnableOutlining = True
.Protect Password:="password", _
Contents:=True, UserInterfaceOnly:=True
End With

End Sub

To paste the code into the ThisWorkbook module:

Right-click on the Excel icon, to the left of the File menu
Choose View Code
Paste the code where the cursor is flashing.


swami wrote:
Hi,
I need to operate the outline symbols ( +OR - , when the data grouping is
done) in a protected mode. At present Excel does not allows it . Any idea. My
excel sheet is being created by a macro and assigns all the formulas,
datagrouping . When i run from macro and check it is working. Once i save the
file and reopen it i am getting problem.



--
Debra Dalgleish
Excel FAQ, Tips & Book List
http://www.contextures.com/tiptech.html



swami

Grouping and outline
 
HI ,
thanks for the reply.
But as i already mentioned , i am generating about 100 workbook and assign
formulas . all my workbooks are automatically created by macros. Now how to
assign the below code to each and every work book. Any idea

thanks


"Debra Dalgleish" wrote:

If you protect the worksheet programmatically, you can enable outlining,
and you will be able to use the groups that you have created.

The following code goes in the ThisWorkbook module:

Private Sub Workbook_Open()
With Worksheets("Sheet1")
.EnableOutlining = True
.Protect Password:="password", _
Contents:=True, UserInterfaceOnly:=True
End With

End Sub

To paste the code into the ThisWorkbook module:

Right-click on the Excel icon, to the left of the File menu
Choose View Code
Paste the code where the cursor is flashing.


swami wrote:
Hi,
I need to operate the outline symbols ( +OR - , when the data grouping is
done) in a protected mode. At present Excel does not allows it . Any idea. My
excel sheet is being created by a macro and assigns all the formulas,
datagrouping . When i run from macro and check it is working. Once i save the
file and reopen it i am getting problem.



--
Debra Dalgleish
Excel FAQ, Tips & Book List
http://www.contextures.com/tiptech.html



Debra Dalgleish

Grouping and outline
 
Chip Pearson has instructions for adding procedures through code:

http://www.cpearson.com/excel/vbe.htm

swami wrote:
HI ,
thanks for the reply.
But as i already mentioned , i am generating about 100 workbook and assign
formulas . all my workbooks are automatically created by macros. Now how to
assign the below code to each and every work book. Any idea

thanks


"Debra Dalgleish" wrote:


If you protect the worksheet programmatically, you can enable outlining,
and you will be able to use the groups that you have created.

The following code goes in the ThisWorkbook module:

Private Sub Workbook_Open()
With Worksheets("Sheet1")
.EnableOutlining = True
.Protect Password:="password", _
Contents:=True, UserInterfaceOnly:=True
End With

End Sub

To paste the code into the ThisWorkbook module:

Right-click on the Excel icon, to the left of the File menu
Choose View Code
Paste the code where the cursor is flashing.


swami wrote:

Hi,
I need to operate the outline symbols ( +OR - , when the data grouping is
done) in a protected mode. At present Excel does not allows it . Any idea. My
excel sheet is being created by a macro and assigns all the formulas,
datagrouping . When i run from macro and check it is working. Once i save the
file and reopen it i am getting problem.



--
Debra Dalgleish
Excel FAQ, Tips & Book List
http://www.contextures.com/tiptech.html





--
Debra Dalgleish
Excel FAQ, Tips & Book List
http://www.contextures.com/tiptech.html


Dave Peterson[_5_]

Grouping and outline
 
You have one more suggestion at your post in .misc.

swami wrote:

Hi,
I need to operate the outline symbols ( +OR - , when the data grouping is
done) in a protected mode. At present Excel does not allows it . Any idea. My
excel sheet is being created by a macro and assigns all the formulas,
datagrouping . When i run from macro and check it is working. Once i save the
file and reopen it i am getting problem.


--

Dave Peterson

Tom Ogilvy

Grouping and outline
 
Why not use a template that already has the code in it?

--
Regards,
Tom Ogilvy

"swami" wrote in message
...
HI ,
thanks for the reply.
But as i already mentioned , i am generating about 100 workbook and

assign
formulas . all my workbooks are automatically created by macros. Now how

to
assign the below code to each and every work book. Any idea

thanks


"Debra Dalgleish" wrote:

If you protect the worksheet programmatically, you can enable outlining,
and you will be able to use the groups that you have created.

The following code goes in the ThisWorkbook module:

Private Sub Workbook_Open()
With Worksheets("Sheet1")
.EnableOutlining = True
.Protect Password:="password", _
Contents:=True, UserInterfaceOnly:=True
End With

End Sub

To paste the code into the ThisWorkbook module:

Right-click on the Excel icon, to the left of the File menu
Choose View Code
Paste the code where the cursor is flashing.


swami wrote:
Hi,
I need to operate the outline symbols ( +OR - , when the data

grouping is
done) in a protected mode. At present Excel does not allows it . Any

idea. My
excel sheet is being created by a macro and assigns all the formulas,
datagrouping . When i run from macro and check it is working. Once i

save the
file and reopen it i am getting problem.



--
Debra Dalgleish
Excel FAQ, Tips & Book List
http://www.contextures.com/tiptech.html





bayhe

Grouping and outline
 
Hi,

What about if there are 10 worksheets in the file, what should I do to
enable this function in 9 of the worksheets?
Thank you very much.

"Debra Dalgleish" wrote:

If you protect the worksheet programmatically, you can enable outlining,
and you will be able to use the groups that you have created.

The following code goes in the ThisWorkbook module:

Private Sub Workbook_Open()
With Worksheets("Sheet1")
.EnableOutlining = True
.Protect Password:="password", _
Contents:=True, UserInterfaceOnly:=True
End With

End Sub

To paste the code into the ThisWorkbook module:

Right-click on the Excel icon, to the left of the File menu
Choose View Code
Paste the code where the cursor is flashing.


swami wrote:
Hi,
I need to operate the outline symbols ( +OR - , when the data grouping is
done) in a protected mode. At present Excel does not allows it . Any idea. My
excel sheet is being created by a macro and assigns all the formulas,
datagrouping . When i run from macro and check it is working. Once i save the
file and reopen it i am getting problem.



--
Debra Dalgleish
Excel FAQ, Tips & Book List
http://www.contextures.com/tiptech.html



Debra Dalgleish

Grouping and outline
 
You could loop through the worksheets. For example:

Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name < "Summary" Then
With ws
.EnableOutlining = True
.Protect Password:="password", _
Contents:=True, UserInterfaceOnly:=True
End With
End If
Next ws


bayhe wrote:
Hi,

What about if there are 10 worksheets in the file, what should I do to
enable this function in 9 of the worksheets?
Thank you very much.

"Debra Dalgleish" wrote:


If you protect the worksheet programmatically, you can enable outlining,
and you will be able to use the groups that you have created.

The following code goes in the ThisWorkbook module:

Private Sub Workbook_Open()
With Worksheets("Sheet1")
.EnableOutlining = True
.Protect Password:="password", _
Contents:=True, UserInterfaceOnly:=True
End With

End Sub

To paste the code into the ThisWorkbook module:

Right-click on the Excel icon, to the left of the File menu
Choose View Code
Paste the code where the cursor is flashing.


swami wrote:

Hi,
I need to operate the outline symbols ( +OR - , when the data grouping is
done) in a protected mode. At present Excel does not allows it . Any idea. My
excel sheet is being created by a macro and assigns all the formulas,
datagrouping . When i run from macro and check it is working. Once i save the
file and reopen it i am getting problem.



--
Debra Dalgleish
Excel FAQ, Tips & Book List
http://www.contextures.com/tiptech.html





--
Debra Dalgleish
Excel FAQ, Tips & Book List
http://www.contextures.com/tiptech.html



All times are GMT +1. The time now is 03:07 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com