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

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