Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Programmatically delete window menu commands
I have used the code at
http://support.microsoft.com/default...b;en-us;814562 " How to programmatically delete the Window Control menu commands in Excel 2002 " which appears to work , but double clicking the menu bar still allows the restore command to work. I am using Excel 2003 in Windows XP. Any thoughts ? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Programmatically delete window menu commands
I don't know if there is a way to disable the double-click via the API. If
your concern is that you maximized Excel and users can restore it, you might try maxing the restore position by including code like this: Sub MaxRestorePos() Dim MaxW As Double Dim MaxH As Double With Application .ScreenUpdating = False .WindowState = xlMaximized MaxW = .Width MaxH = .Height .WindowState = xlNormal .Left = 0 .Top = 0 .Width = MaxW .Height = MaxH End With End Sub -- Jim "Daveh" wrote in message ... |I have used the code at | | http://support.microsoft.com/default...b;en-us;814562 | | " How to programmatically delete the Window Control menu commands in Excel | 2002 " | | which appears to work , but double clicking the menu bar still allows the | restore command to work. I am using Excel 2003 in Windows XP. | | Any thoughts ? |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Programmatically delete window menu commands
Jim
thanks; this does what I want. I intend to call this procedure from the Workbook_Open module, but what would the settings be for .Width & .Height so that I can reset the conventional restore parameters (either on Workbook_beforeclose or at another time ) ? "Jim Rech" wrote: I don't know if there is a way to disable the double-click via the API. If your concern is that you maximized Excel and users can restore it, you might try maxing the restore position by including code like this: Sub MaxRestorePos() Dim MaxW As Double Dim MaxH As Double With Application .ScreenUpdating = False .WindowState = xlMaximized MaxW = .Width MaxH = .Height .WindowState = xlNormal .Left = 0 .Top = 0 .Width = MaxW .Height = MaxH End With End Sub -- Jim "Daveh" wrote in message ... |I have used the code at | | http://support.microsoft.com/default...b;en-us;814562 | | " How to programmatically delete the Window Control menu commands in Excel | 2002 " | | which appears to work , but double clicking the menu bar still allows the | restore command to work. I am using Excel 2003 in Windows XP. | | Any thoughts ? |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Programmatically delete window menu commands
I'm glad to here you want to restore the user to where he was. I threw this
together quickly. You'll want to test it and integrate with your API stuff. Dim OrigLeft As Double Dim OrigTop As Double Dim OrigWidth As Double Dim OrigHeight As Double Dim OrigState As Integer Sub MaxRestorePos() Dim MaxW As Double Dim MaxH As Double With Application .ScreenUpdating = False OrigState = .WindowState .WindowState = xlNormal OrigLeft = .Left OrigTop = .Top OrigWidth = .Width OrigHeight = .Height .WindowState = xlMaximized MaxW = .Width MaxH = .Height .WindowState = xlNormal .Left = 0 .Top = 0 .Width = MaxW .Height = MaxH End With End Sub Sub ResetRestorePos() With Application .WindowState = xlNormal ''Just to be sure .Left = OrigLeft .Top = OrigTop .Width = OrigWidth .Height = OrigHeight .WindowState = OrigState End With End Sub -- Jim "Daveh" wrote in message ... | Jim | | thanks; this does what I want. | | I intend to call this procedure from the Workbook_Open module, but what | would the settings be for .Width & .Height so that I can reset the | conventional restore parameters (either on Workbook_beforeclose or at another | time ) ? | | | | "Jim Rech" wrote: | | I don't know if there is a way to disable the double-click via the API. If | your concern is that you maximized Excel and users can restore it, you might | try maxing the restore position by including code like this: | | Sub MaxRestorePos() | Dim MaxW As Double | Dim MaxH As Double | With Application | .ScreenUpdating = False | .WindowState = xlMaximized | MaxW = .Width | MaxH = .Height | .WindowState = xlNormal | .Left = 0 | .Top = 0 | .Width = MaxW | .Height = MaxH | End With | End Sub | | -- | Jim | "Daveh" wrote in message | ... | |I have used the code at | | | | http://support.microsoft.com/default...b;en-us;814562 | | | | " How to programmatically delete the Window Control menu commands in Excel | | 2002 " | | | | which appears to work , but double clicking the menu bar still allows the | | restore command to work. I am using Excel 2003 in Windows XP. | | | | Any thoughts ? | | | |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Programmatically delete window menu commands
How about protect workbook windows but not structure
Regards, Peter T "Daveh" wrote in message ... I have used the code at http://support.microsoft.com/default...b;en-us;814562 " How to programmatically delete the Window Control menu commands in Excel 2002 " which appears to work , but double clicking the menu bar still allows the restore command to work. I am using Excel 2003 in Windows XP. Any thoughts ? |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Programmatically delete window menu commands
His goal is to prevent Excel itself from being restored, not the workbook.
-- Jim "Peter T" <peter_t@discussions wrote in message ... | How about protect workbook windows but not structure | | Regards, | Peter T | | "Daveh" wrote in message | ... | I have used the code at | | http://support.microsoft.com/default...b;en-us;814562 | | " How to programmatically delete the Window Control menu commands in Excel | 2002 " | | which appears to work , but double clicking the menu bar still allows the | restore command to work. I am using Excel 2003 in Windows XP. | | Any thoughts ? | | |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
Programmatically delete window menu commands
Ah, missed that. I should have read more carefully.
Regards, Peter T "Jim Rech" wrote in message ... His goal is to prevent Excel itself from being restored, not the workbook. -- Jim "Peter T" <peter_t@discussions wrote in message ... | How about protect workbook windows but not structure | | Regards, | Peter T | | "Daveh" wrote in message | ... | I have used the code at | | http://support.microsoft.com/default...b;en-us;814562 | | " How to programmatically delete the Window Control menu commands in Excel | 2002 " | | which appears to work , but double clicking the menu bar still allows the | restore command to work. I am using Excel 2003 in Windows XP. | | Any thoughts ? | | |
#8
Posted to microsoft.public.excel.programming
|
|||
|
|||
Programmatically delete window menu commands
Jim
exactly what I wanted; thank you ! "Jim Rech" wrote: I'm glad to here you want to restore the user to where he was. I threw this together quickly. You'll want to test it and integrate with your API stuff. Dim OrigLeft As Double Dim OrigTop As Double Dim OrigWidth As Double Dim OrigHeight As Double Dim OrigState As Integer Sub MaxRestorePos() Dim MaxW As Double Dim MaxH As Double With Application .ScreenUpdating = False OrigState = .WindowState .WindowState = xlNormal OrigLeft = .Left OrigTop = .Top OrigWidth = .Width OrigHeight = .Height .WindowState = xlMaximized MaxW = .Width MaxH = .Height .WindowState = xlNormal .Left = 0 .Top = 0 .Width = MaxW .Height = MaxH End With End Sub Sub ResetRestorePos() With Application .WindowState = xlNormal ''Just to be sure .Left = OrigLeft .Top = OrigTop .Width = OrigWidth .Height = OrigHeight .WindowState = OrigState End With End Sub -- Jim "Daveh" wrote in message ... | Jim | | thanks; this does what I want. | | I intend to call this procedure from the Workbook_Open module, but what | would the settings be for .Width & .Height so that I can reset the | conventional restore parameters (either on Workbook_beforeclose or at another | time ) ? | | | | "Jim Rech" wrote: | | I don't know if there is a way to disable the double-click via the API. If | your concern is that you maximized Excel and users can restore it, you might | try maxing the restore position by including code like this: | | Sub MaxRestorePos() | Dim MaxW As Double | Dim MaxH As Double | With Application | .ScreenUpdating = False | .WindowState = xlMaximized | MaxW = .Width | MaxH = .Height | .WindowState = xlNormal | .Left = 0 | .Top = 0 | .Width = MaxW | .Height = MaxH | End With | End Sub | | -- | Jim | "Daveh" wrote in message | ... | |I have used the code at | | | | http://support.microsoft.com/default...b;en-us;814562 | | | | " How to programmatically delete the Window Control menu commands in Excel | | 2002 " | | | | which appears to work , but double clicking the menu bar still allows the | | restore command to work. I am using Excel 2003 in Windows XP. | | | | Any thoughts ? | | | |
#9
Posted to microsoft.public.excel.programming
|
|||
|
|||
Programmatically delete window menu commands
I have used the code at
http://support.microsoft.com/default...b;en-us;814562 " How to programmatically delete the Window Control menu commands in Excel 2002 " It also works great in Excel 2003. This doesn't seem to work for Excel 2007, however. Are there any updates. I am using Excel 2007 in Windows XP (32). Thanks, Peter B |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Immediate Window - Available Commands | Excel Programming | |||
How do I undo the Excel, Window Menu, New Window command | Excel Discussion (Misc queries) | |||
Issue Commands To a DOS Window | Excel Programming | |||
Lost my menu bar commands | Excel Discussion (Misc queries) | |||
menu commands are gray | Excel Discussion (Misc queries) |