Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Disabling Toolbar Buttons with no open Workbook
Hi all
I have 2 issues: ================================================== ========================== ### 1 ### I have added some custom buttons with some custom code to the Standard toolbar in XL-xp and they work fine, and I want them to 'gray-out' when there's no workbook open (just like built-in buttons). I tried adding some code to the Workbook_Open, Workbook_New and Workbook_Close events of Personal.xls as follows: If Workbooks.Count <= 2 Then CommandBars("Standard").Controls("Custom").Enabled = False Else CommandBars("Standard").Controls("Custom").Enabled = True End If Though I have similar code working fine in Word, this code does not execute when I open a workbook. Any suggestions appreciated. ================================================== ========================== ### 2 ### With the above buttons, I am using toggle buttons from the Control Toolbox. Although the code executes fine, the buttons do not alternate between the usual 'toggle-on' and 'toggle-off' styles. Any suggestions on how to achieve this? Thanks in advance Paul Martin Melbourne, Australia |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Disabling Toolbar Buttons with no open Workbook
I never try to disable the buttons but you can try this code
Sub test() On Error GoTo closesub ActiveWorkbook.Activate ' your code closesub: MsgBox "There is no file open" Exit Sub End Sub 2?? -- Regards Ron de Bruin (Win XP Pro SP-1 XL2002 SP-2) www.rondebruin.nl "Paul Martin" wrote in message om... Hi all I have 2 issues: ================================================== ========================== ### 1 ### I have added some custom buttons with some custom code to the Standard toolbar in XL-xp and they work fine, and I want them to 'gray-out' when there's no workbook open (just like built-in buttons). I tried adding some code to the Workbook_Open, Workbook_New and Workbook_Close events of Personal.xls as follows: If Workbooks.Count <= 2 Then CommandBars("Standard").Controls("Custom").Enabled = False Else CommandBars("Standard").Controls("Custom").Enabled = True End If Though I have similar code working fine in Word, this code does not execute when I open a workbook. Any suggestions appreciated. ================================================== ========================== ### 2 ### With the above buttons, I am using toggle buttons from the Control Toolbox. Although the code executes fine, the buttons do not alternate between the usual 'toggle-on' and 'toggle-off' styles. Any suggestions on how to achieve this? Thanks in advance Paul Martin Melbourne, Australia |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Delete Web Toolbar when Open A Hyperlink workbook | Excel Discussion (Misc queries) | |||
Disabling Minimise/Restore Down buttons | Excel Programming | |||
Disabling Toolbar buttons and CommandBar items | Excel Programming | |||
Disabling toolbar customization | Excel Programming | |||
Option buttons - disabling | Excel Programming |