View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
William[_2_] William[_2_] is offline
external usenet poster
 
Posts: 227
Default Disabling Toolbar buttons and CommandBar items

Hi Jim

Rather than disabling the toolbar buttons (which can be easily overcome if a
User has other "custom" buttons on a toolbar, a better option may be to use
the following (which should be placed in the "ThisWorkbook" module) and
which will only effect the workbook you enter this code in.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
End Sub


--
XL2002
Regards

William


"Jim" wrote in message
...
| Hello,
|
| I'm trying to disable the print CommandBar items and
| toolbar buttons from a specific Excel workbook on the
| WhenClick event of a custom button. The problem is that
| in so ding, I end up disabling the functionality for any
| workbook I open after executing my code. Any ideas on how
| I can limit the sciope to the individual workbook I'm
| working on? I'm sing Excel XP. Here's a snippet of my
| code:
|
| Toolbars("Standard").ToolbarButtons(7).Enabled = False
|
| With CommandBars("File")
| .Controls("Print...").Enabled = False
| .Controls("Print Preview").Enabled = False
| End With