Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
window minimize
Private Sub workbook_open()
Application.Visible = False start_screen.Show Applicaton.Visible = True End Sub Might do something similar to what you want. or Private Sub workbook_open() ThisWorkbook.Windows(1).Visible = False start_screen.Show ThisWorkbook.Windows(1).Visible = True End Sub Regards, Tom Ogilvy "Joe" wrote in message ... I would like to minimize the current excel workbook when the file is opened and only display a user form. The problem is, when i do this the only way i can see the form is to click on the minimized file. The code is simple but the form will not popup on the screen. If this makes sense does anyone have any suggestions? Here is the code I am using. Private Sub workbook_open() Application.WindowState = xlMinimized start_screen.Show End Sub Thanks in advance Joe |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
window minimize
I would suggest putting the "Application.Visible = True" under the userform
"Userform_Terminate" event. ie. Private Sub workbook_open() Application.Visible = False start_screen.Show End Sub Private Sub UserForm_Terminate() Application.Visible = True End Sub Excel wouldn't re_open using the first code, until I opened another workbook. Dan E "Tom Ogilvy" wrote in message ... Private Sub workbook_open() Application.Visible = False start_screen.Show Applicaton.Visible = True End Sub Might do something similar to what you want. or Private Sub workbook_open() ThisWorkbook.Windows(1).Visible = False start_screen.Show ThisWorkbook.Windows(1).Visible = True End Sub Regards, Tom Ogilvy "Joe" wrote in message ... I would like to minimize the current excel workbook when the file is opened and only display a user form. The problem is, when i do this the only way i can see the form is to click on the minimized file. The code is simple but the form will not popup on the screen. If this makes sense does anyone have any suggestions? Here is the code I am using. Private Sub workbook_open() Application.WindowState = xlMinimized start_screen.Show End Sub Thanks in advance Joe |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
window minimize
That may be a good approach, but worked fine for me as written. I have a
button on the userform that the user clicks to close the userform although this could be done with application.OnTime. Regards, Tom Ogilvy "Dan E" wrote in message ... I would suggest putting the "Application.Visible = True" under the userform "Userform_Terminate" event. ie. Private Sub workbook_open() Application.Visible = False start_screen.Show End Sub Private Sub UserForm_Terminate() Application.Visible = True End Sub Excel wouldn't re_open using the first code, until I opened another workbook. Dan E "Tom Ogilvy" wrote in message ... Private Sub workbook_open() Application.Visible = False start_screen.Show Applicaton.Visible = True End Sub Might do something similar to what you want. or Private Sub workbook_open() ThisWorkbook.Windows(1).Visible = False start_screen.Show ThisWorkbook.Windows(1).Visible = True End Sub Regards, Tom Ogilvy "Joe" wrote in message ... I would like to minimize the current excel workbook when the file is opened and only display a user form. The problem is, when i do this the only way i can see the form is to click on the minimized file. The code is simple but the form will not popup on the screen. If this makes sense does anyone have any suggestions? Here is the code I am using. Private Sub workbook_open() Application.WindowState = xlMinimized start_screen.Show End Sub Thanks in advance Joe |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
window minimize
I actually thought your second approach was much better, then if you have
mutliple applications open, you can switch away from excel and back to it using the taskbar as opposed to minimizing everything else. Nice work. Dan E "Tom Ogilvy" wrote in message ... That may be a good approach, but worked fine for me as written. I have a button on the userform that the user clicks to close the userform although this could be done with application.OnTime. Regards, Tom Ogilvy "Dan E" wrote in message ... I would suggest putting the "Application.Visible = True" under the userform "Userform_Terminate" event. ie. Private Sub workbook_open() Application.Visible = False start_screen.Show End Sub Private Sub UserForm_Terminate() Application.Visible = True End Sub Excel wouldn't re_open using the first code, until I opened another workbook. Dan E "Tom Ogilvy" wrote in message ... Private Sub workbook_open() Application.Visible = False start_screen.Show Applicaton.Visible = True End Sub Might do something similar to what you want. or Private Sub workbook_open() ThisWorkbook.Windows(1).Visible = False start_screen.Show ThisWorkbook.Windows(1).Visible = True End Sub Regards, Tom Ogilvy "Joe" wrote in message ... I would like to minimize the current excel workbook when the file is opened and only display a user form. The problem is, when i do this the only way i can see the form is to click on the minimized file. The code is simple but the form will not popup on the screen. If this makes sense does anyone have any suggestions? Here is the code I am using. Private Sub workbook_open() Application.WindowState = xlMinimized start_screen.Show End Sub Thanks in advance Joe |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
window minimize
Another approach is to make the form fit the full screen and hide the Excel
window. Put this sub in the user form: Private Sub UserForm_Initialize() With Application Me.Top = .Top - 10 Me.Left = .Left - 10 Me.Height = .Height - 10 Me.Width = .Width - 10 End With End Sub steve "Dan E" wrote in message ... I actually thought your second approach was much better, then if you have mutliple applications open, you can switch away from excel and back to it using the taskbar as opposed to minimizing everything else. Nice work. Dan E "Tom Ogilvy" wrote in message ... That may be a good approach, but worked fine for me as written. I have a button on the userform that the user clicks to close the userform although this could be done with application.OnTime. Regards, Tom Ogilvy "Dan E" wrote in message ... I would suggest putting the "Application.Visible = True" under the userform "Userform_Terminate" event. ie. Private Sub workbook_open() Application.Visible = False start_screen.Show End Sub Private Sub UserForm_Terminate() Application.Visible = True End Sub Excel wouldn't re_open using the first code, until I opened another workbook. Dan E "Tom Ogilvy" wrote in message ... Private Sub workbook_open() Application.Visible = False start_screen.Show Applicaton.Visible = True End Sub Might do something similar to what you want. or Private Sub workbook_open() ThisWorkbook.Windows(1).Visible = False start_screen.Show ThisWorkbook.Windows(1).Visible = True End Sub Regards, Tom Ogilvy "Joe" wrote in message ... I would like to minimize the current excel workbook when the file is opened and only display a user form. The problem is, when i do this the only way i can see the form is to click on the minimized file. The code is simple but the form will not popup on the screen. If this makes sense does anyone have any suggestions? Here is the code I am using. Private Sub workbook_open() Application.WindowState = xlMinimized start_screen.Show End Sub Thanks in advance Joe |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
show minimize window selection for Excel | Excel Discussion (Misc queries) | |||
Excel 03 - Send Attachment (can't minimize Outlook window) | Excel Discussion (Misc queries) | |||
Docking Project Explorer, Properties window and Code window in VBE | Setting up and Configuration of Excel | |||
The window opens in a smaller window not full sized window. | Excel Discussion (Misc queries) | |||
how do i minimize/maximize a workbook from vba? I want to minimize it durring processing to speed things up a bit | Excel Worksheet Functions |