Excel 2003 Full Screen Mode Issue

[IM4FLSt]

Hi all,

I have written a program in excel. When the client opens the file, it has an open event that puts excel in full screen mode. In excel 2003, when in full screen mode, the sheet tabs and horizontal scroll is located behind the windows taskbar (the one with the start button). Because of this, they obviously cannot see the sheet tabs to go between the sheets, nor scroll left and right.

If you resize the windows taskbar (ie. make it bigger and then back to normal size) excel fixes itself.

So, my question is: Is there anyway to do this from excel VBA, or am i stuck with not being able to use full screen mode?

Also, any other advice for getting around this issue is welcome.

Thanks for your help in advance!

John

 

[IM4FLSt]

Does anyone have an idea?

 

[buzz71023]

Did you ever find a solution?

 

[IM4FLSt]

No, I never did.

 

[buzz71023]

I have a project i did for work and did the same thing. No one helped me, i finally just figured something out on my own, it might not work for you but it works great for me.

Go into VBE and click on "ThisWorkbook" and the go up to view and select Code.

Sub Autpen()

Application.DisplayFullScreen = True

End Sub

then you will need to turn it off...

Private Sub CommandButton1_Click()
Application.DisplayFullScreen = False
'Closes workbook without saving changes
ActiveWorkbook.Close False
End Sub

i have a button (just an inserted shape) on my sheet to exit the program, linked with the macro to close the workbook and exit full screen mode.

if you dont want to use any toolbars or menus (file, edit view, etc...) then you can use this.


Private Sub Workbook_Activate() On Error Resume Next With Application .DisplayFullScreen = True .CommandBars("Worksheet Menu Bar").Enabled = False End With End Sub Private Sub Workbook_Deactivate() On Error Resume Next With Application .DisplayFullScreen = False .CommandBars("Worksheet Menu Bar").Enabled = True End With End Sub

Be careful with this because if you have more than one workbook open at a time you get get it stuck in that mode and have to play with switching the true and false's around on the two codes to fix it (if that does happen it is best to close workbooks until you get it fixed)
</pre>

 

[buzz71023]

Private Sub Workbook_Activate()
On Error Resume Next
With Application
.DisplayFullScreen = True
.CommandBars("Worksheet Menu Bar").Enabled = False
End With
End Sub


Private Sub Workbook_Deactivate()
On Error Resume Next
With Application
.DisplayFullScreen = False
.CommandBars("Worksheet Menu Bar").Enabled = True
End With
End Sub

 

[IM4FLSt]

Thanks for your help.

 

[buzz71023]

Did it work?