Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Identifying Visible Toolbars
I want to be able to de-select all toolbars for the user of a file and, when the project is complete, re-select the toolbars they originally had visible. I have a routine (at work, unfortunately) that will de-select all toolbars, but I don't have anything that will set the visible toolbars back to their original state. Any quick code for this? -- DCSwearingen ------------------------------------------------------------------------ DCSwearingen's Profile: http://www.excelforum.com/member.php...o&userid=21506 View this thread: http://www.excelforum.com/showthread...hreadid=497189 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Identifying Visible Toolbars
Loop through your list of commandbars (which you made when you made them not
visible) that were visible and set their visible property to true. Should be almost identical to the code you have. -- regards, Tom Ogilvy "DCSwearingen" wrote in message ... I want to be able to de-select all toolbars for the user of a file and, when the project is complete, re-select the toolbars they originally had visible. I have a routine (at work, unfortunately) that will de-select all toolbars, but I don't have anything that will set the visible toolbars back to their original state. Any quick code for this? -- DCSwearingen ------------------------------------------------------------------------ DCSwearingen's Profile: http://www.excelforum.com/member.php...o&userid=21506 View this thread: http://www.excelforum.com/showthread...hreadid=497189 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Identifying Visible Toolbars
Here is the code I came up with. It can probably be trimmed down b someone more experienced than myself. Option Base 1 Global myArray(50, 2) Sub HideToolbars() Dim myCount As Single, myState As Boolean, i As Integer For i = 1 To Toolbars.Count myCount = i myState = Toolbars(i).Visible myArray(i, 1) = myCount myArray(i, 2) = myState Toolbars(i).Visible = False Next End Sub Sub RestoreToolbars() Dim i As Integer For i = 1 To Toolbars.Count Toolbars(i).Visible = myArray(i, 3) Next End Sub Thanks again to everyone who answers questions posted -- DCSwearinge ----------------------------------------------------------------------- DCSwearingen's Profile: http://www.excelforum.com/member.php...fo&userid=2150 View this thread: http://www.excelforum.com/showthread.php?threadid=49718 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Hiding all visible toolbars by writing their numbers to an array | Excel Programming | |||
Worksheet has to set to visible as it is not visible after saving and closing Excel by VB. | Excel Programming | |||
Please Help, No Toolbars in my view-toolbars! | Excel Programming | |||
Autoshapes not visible on spreadsheet but visible in print preview | Excel Discussion (Misc queries) | |||
Toggle Text in a column to be visible or not visible | Excel Programming |