ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   deactivate fullscreen (https://www.excelbanter.com/excel-programming/325284-deactivate-fullscreen.html)

MD

deactivate fullscreen
 
I have a workbook that uses fullscreen mode. If the user lowers the EXCEL
window to consult another application, when the user comes back, the view is
now normal (not in fullscreen). Is there a way to stop this automatic
operation of EXCEL?

MD



MD

deactivate fullscreen
 
As extra info... The reason why I use full screen is because I want all of
the toolbars to be off (hidden). Since not all user have the same toolbars
on (showing), by using fullscreen it hides them all. If you have another
way about this, I'm also open for ideas...

regards,
MD


"MD" wrote in message
...
I have a workbook that uses fullscreen mode. If the user lowers the EXCEL
window to consult another application, when the user comes back, the view
is now normal (not in fullscreen). Is there a way to stop this automatic
operation of EXCEL?

MD




Tom Ogilvy

deactivate fullscreen
 
No setting that does it.

--
Regards,
Tom Ogilvy

"MD" wrote in message
...
I have a workbook that uses fullscreen mode. If the user lowers the EXCEL
window to consult another application, when the user comes back, the view

is
now normal (not in fullscreen). Is there a way to stop this automatic
operation of EXCEL?

MD





MD

deactivate fullscreen
 
Found this code that solved my problem...
http://www.ozgrid.com/forum/showthread.php?t=21744
Author: Aaron blood
Since it uses a collection of the toolbars... no matter what inventory of
toolbars you have...
Thought i'd share

MD


Dim UserToolbars As New Collection
Dim AppToolbars As New Collection Private Sub Workbook_Open()
Define_Toolbar_Collections
Display_App_Toolbars
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Display_User_Toolbars
End Sub

Private Sub Define_Toolbar_Collections()
Set AppBars = Application.CommandBars
For Each tb In AppBars
If tb.Visible Then
UserToolbars.Add tb
End If
Next tb
End Sub

Private Sub Display_App_Toolbars()
On Error Resume Next
For Each tb In UserToolbars
tb.Visible = False
Next tb
For Each tb In AppToolbars
tb.Visible = True
Next tb
End Sub

Private Sub Display_User_Toolbars()
On Error Resume Next
For Each tb In AppToolbars
tb.Visible = False
Next tb
For Each tb In UserToolbars
tb.Visible = True
Next tb
End Sub


"MD" wrote in message
...
As extra info... The reason why I use full screen is because I want all
of the toolbars to be off (hidden). Since not all user have the same
toolbars on (showing), by using fullscreen it hides them all. If you have
another way about this, I'm also open for ideas...

regards,
MD


"MD" wrote in message
...
I have a workbook that uses fullscreen mode. If the user lowers the EXCEL
window to consult another application, when the user comes back, the view
is now normal (not in fullscreen). Is there a way to stop this automatic
operation of EXCEL?

MD







All times are GMT +1. The time now is 04:49 PM.

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