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
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