[mso] Re: Excel Toolbar

There may be a setting but this way is in code. As per my previous reply
but select NewSheet from the second drop-down and use this code:

Private Sub Workbook_NewSheet(ByVal Sh As Object)
  Application.DisplayAlerts = False
  Sheets(Sh.Name).Delete
  Application.DisplayAlerts = True
End Sub

Note that what this is doing is simply deleting the newly created sheet
before the user has a chance to see it. The togglibg of DisplayAlerts off
and on is to prevent being prompted to confirm the deletion. Note this
WILL conflict with the previous code for the toolbars as the sheet no
longer exists when the activate event happens. So if you are using the
ToolBar  visible code you need to modify it to:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  On Error Resume Next
  Application.CommandBars("MyToolbar").Visible = (Sh.Name = "Sheet1")
End Sub

This prevents the error from interupting the code.

Also note that if you really want to prevent the user from inserting a
sheet you are also going to have to password protect your code, else they
can get in and modify the macros.

Regards, John

-----Original Message-----
From: mso-bounce@xxxxxxxxxxxxx [mailto:mso-bounce@xxxxxxxxxxxxx] On Behalf
Of Robert Carneal
Sent: 23 April 2004 19:31
To: mso@xxxxxxxxxxxxx
Subject: [mso] Re: Excel Toolbar


---Copy---
Is there any way to make a custom tool bar for a specific worksheet but
have all other worksheets open with the default toolbar?
---End---

I would be interested in that, but also +with+ the ability to disable the
user adding worksheets in the same file. Would that be possible?

Thanks everyone.

Robert


*************************************************************
You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx or
MicrosoftOffice@xxxxxxxxxxxxxxxx

To send mail to the group, simply address it to mso@xxxxxxxxxxxxx

To Unsubscribe from this group, send an email to
mso-request@xxxxxxxxxxxxx with the word "unsubscribe" (without the quotes)
in the subject line.

Or, visit the group's homepage and use the dropdown menu.  This will also
allow you to change your email settings to digest or vacation (no mail).
http://www.freelists.org/webpage/mso

To be able to use the files section for sharing files with the group, send
a request to mso-moderators@xxxxxxxxxxxxx and you will be sent an
invitation with instructions.  Once you are a member of the files group,
you can go here to upload/download files:
http://www.smartgroups.com/vault/msofiles
*************************************************************


*************************************************************
You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx or 
MicrosoftOffice@xxxxxxxxxxxxxxxx

To send mail to the group, simply address it to mso@xxxxxxxxxxxxx

To Unsubscribe from this group, send an email to 
mso-request@xxxxxxxxxxxxx with the word "unsubscribe" (without the quotes) in 
the subject line.

Or, visit the group's homepage and use the dropdown menu.  This will also allow 
you to change your email settings to digest or vacation (no mail).
http://www.freelists.org/webpage/mso

To be able to use the files section for sharing files with the group, send a 
request to mso-moderators@xxxxxxxxxxxxx and you will be sent an invitation with 
instructions.  Once you are a member of the files group, you can go here to 
upload/download files:
http://www.smartgroups.com/vault/msofiles
*************************************************************

Other related posts: