Disable Custom Toolbar Buttons
Posted by JAF on March 01, 2000 4:55 AM
I have created a number of custom toolbar buttons which do various time-saving things for me (sort worksheets, highlight formulas, lock formulas etc.)
What I haven't worked out is how to disable these buttons when there is no workbook open.
Some of the default Microsoft icons are ghosted, but become active as soon as a workbook is opened or a new one created. Does anyone know what code I need to do this?
JAF
Posted by Keith Hoar on March 01, 2000 11:49 AM
The workbook will have to be open. What you need to do is put some code into an Auto_Open macro. this macro will automatically run when the workbook is opened.
Sample:
'Find ID number of Standard Toolbar "Print" button
For i = 1 To 25
If Left(CommandBars("Standard").Controls(i).Caption, 5) = "Print" Then
PrintButton = i
Exit For
End If
Next i
' Disable menu & toolbar functions
CommandBars("Worksheet menu bar").Controls("File").Controls("Save").Enabled = False
CommandBars("Worksheet menu bar").Controls("File").Controls("Page Setup...").Enabled = False
CommandBars("Worksheet menu bar").Controls("File").Controls("Print Area").Enabled = False
CommandBars("Worksheet menu bar").Controls("File").Controls("Print...").Enabled = False
CommandBars("Worksheet menu bar").Controls("File").Controls("Print Preview").Enabled = False
CommandBars("Standard").Controls("Save").Enabled = False
CommandBars("Standard").Controls(PrintButton).Enabled = False
CommandBars("Standard").Controls("Print Preview").Enabled = False
HTH
Keith Hoar
Posted by JAF on March 07, 2000 7:58 AM
Keith
The above works on a specific workbook, but the macros for which I have toolbar buttons are generic and could work on ANY workbook/worksheet.
Is there any way to disable the buttons when NO workbook is active and to enable them whenever ANY workbook is opened?
Posted by bill.roberts on March 07, 2000 11:45 AM
Keith,
How about creating a custom toolbar in VBA?
