Project Server Experts Community Site

Background

You want to distribute menu changes across the enterprise using the Enterpise Global file.

Resolution

You can accomplish this by creating a VBA macro that uses the Project_Open event as follows: 

1. Open the Enterprise Global
2. Enter Alt + F11 to open the VBA Editor (VBE)
3. Expand the structure under the VBAProject (Checked-out Enterprise Global)
   and double click on 'ThisProject (Checked-out Enterprise Global)' to open the
   window
4. Enter the following code changing the values as you require:
   
   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
   
5. Save and close the Enterprise Global
6. Exit Project and Restart the Project client
7. Note that when you open a project, the system loads this code and adjusts the menu bar accordingly.
   

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