disable menues

[amsanborn]

is there a code to disable all menues?

[antoka05]

Try with this code:

Sub DisableMenui()
   On Error Resume Next
   For Each cmdBar In Application.CommandBars
      For Each ctl In cmdBar.Controls
         ctl.Enabled = False
         
         For Each ctl1 In ctl.Controls
            ctl1.Enabled = False
         Next
      Next
   Next
End Sub

Regards,
Antonio

[royUK]

be extremely careful when using such code. You have to re-set all menus back to the user's settings. The posted code will disable the menus, but if you do not enable the ones that the user has visible afterwards then you will annoy you users!