password to access a custom menu?

M

michael.beckinsale

Hi All,

I need to provide a custom menu for 'administrators' of a spreadsheet.
This menu will give them priveleges not available to normal users and
therefore l would like to have them enter a password whenever they
click on the custom menu (eg ADMIN). I want to avoid having to check
for the correct password on each macro as there are too many.

The custom menu has been added using:

Dim ADMINmenu As CommandBarControl
Set ADMINmenu = Application.CommandBars("Worksheet Menu
Bar").Controls.add(Type:=msoControlPopup, Before:=8)
ADMINmenu.Caption = "&ADMIN"
ADMINmenu.BeginGroup = False
ADMINmenu.Visible = True

Can anybody give me any pointers / code to achieve this please?

Regards

Michael
 
M

michael.beckinsale

Hi All,

Must be getting tired, adding this line to launch macro solved the
problem

ADMINmenu.OnAction = "password_request"

Regards

Michael
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top