Customizing the Menu Bar accross the Enterprise

S

Sam

Does anyone know of a way to make changes to the Menu Bar and then distribute
those changes accross the enterprise to all users? I have done this several
times using macros linked to buttons on the toolbars.

Thanks,
Sam
 
D

Dale Howard [MVP]

Sam --

I would recommend that you post this in the
microsoft.public.project.developer newsgroup, as you are more likely to get
an answer there. Hope this helps.
 
S

Sam

Thanks Dale. For some reason through I always figure out how to do something
after I post the question. If anyone is interested here is a brief
description of how you do it:

1. Open the Enterprise Global and push Alt + F11 to open the VBA Editor
2. Expand the structure under the VBAProject (Checked-out Enterprise Global)
and double click on 'ThisProject (Checked-out Enterprise Global)' to open the
window
3. Add the following code changing the values as needed:

Private Sub Project_Open(ByVal pj As Project)
Dim myCmd As Object
Set myCmd = CommandBars("menu bar").Controls("[menu item]")
myCmd.Controls("[command]").Enabled = False
End Sub

Example - to disable the 'Save As' command the code would be:

Private Sub Project_Open(ByVal pj As Project)
Dim myCmd As Object
Set myCmd = CommandBars("menu bar").Controls("File")
myCmd.Controls("Save As...").Enabled = False
End Sub

4. Save and close the Enterprise Global. Now whenever someone connects to
the Project Server Enterprise through MS Project this code will get loaded
automatically and the menu bar will adjust accordingly.
 
Top