CustomizationContext = ActiveDocument Dim bar As CommandBar For Each bar In CommandBars If bar.Type = msoBarTypePopup Then bar.Enabled = False End If Next