Identifying Visible Toolbars

[DCSwearingen]

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?

[Tom Ogilvy]

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" <[email protected]>
wrote in message
news:[email protected]...
>
> 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
>

[DCSwearingen]

Here is the code I came up with. It can probably be trimmed down by 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.