ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Hide (visible+AD0-false) all open applications? (https://www.excelbanter.com/excel-programming/280344-re-hide-visible-ad0-false-all-open-applications.html)

Joe 90[_2_]

Hide (visible+AD0-false) all open applications?
 
Very nice :)

+ACI-steve+ACI- +ADw-sbell+AEA-sunclipse.com+AD4- wrote in message
news:OODlXqOmDHA.3316+AEA-tk2msftngp13.phx.gbl...
Joe,

Put this in the form initialize event and the form will fill the screen

With Application
Me.Top +AD0- .Top
Me.Left +AD0- .Left
Me.Height +AD0- .Height
Me.Width +AD0- .Width
End With


Wrap all of your code with

Sub MySub()
Application.ScreenUpDating +AD0- False
+ACo- your code +ACo-
Application.ScreenUpDating +AD0- True
End Sub

to speed up your code and prevent any screen flicker.

--
sb
+ACI-Joe 90+ACI- +ADw-joe+AEA-sillyspambimma.me.uk(remove silly spam)+AD4- wrote in message
news:3f96ff2c+ACQ-1+AF8-1+AEA-mk-nntp-2.news.uk.tiscali.com...
+AD4- Ron
+AD4-
+AD4- There is that way, but I want users to concentrate on data entry on a
form,
+AD4- and not be too distracted by other activity on screen. The aim is to
create
+AD4- what +ACI-looks like+ACI- a standalone app, even though it is really Excel?
+AD4-
+AD4- Joe
+AD4-
+AD4- +ACI-Ron de Bruin+ACI- +ADw-rondebruin+AEA-kabelfoon.nl+AD4- wrote in message
+AD4- news:uvqHFkNmDHA.744+AEA-tk2msftngp13.phx.gbl...
+AD4- Why don't you maximize Excel and the Workbook
+AD4-
+AD4- Application.WindowState +AD0- xlMaximized
+AD4- ActiveWindow.WindowState +AD0- xlMaximized
+AD4-
+AD4-
+AD4- --
+AD4- Regards Ron de Bruin
+AD4- (Win XP Pro SP-1 XL2002 SP-2)
+AD4- www.rondebruin.nl
+AD4-
+AD4-
+AD4-
+AD4- +ACI-Joe 90+ACI- +ADw-joe+AEA-sillyspambimma.me.uk(remove silly spam)+AD4- wrote in message
+AD4- news:3f96e2a4+ACQ-1+AF8-1+AEA-mk-nntp-2.news.uk.tiscali.com...
+AD4- +AD4- Is there a way with code to make all open applications on the desktop
+AD4- either
+AD4- +AD4- hide or minimise? (From within Excel/VBA)
+AD4- +AD4-
+AD4- +AD4- I can do it with the VB Editor, and using an If routine with GetObject
can
+AD4- +AD4- do it with Word, but the same code won't work with Powerpoint.
+AD4- +AD4-
+AD4- +AD4- I just want a clear desktop so that the user can see and work on the
form.
+AD4- +AD4-
+AD4- +AD4- Any help much appreciated
+AD4- +AD4-
+AD4- +AD4- Joe
+AD4- +AD4-
+AD4-
+AD4-




All times are GMT +1. The time now is 01:42 AM.

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