Removing the RECENTLY OPENED submenu item

  • Thread starter Thread starter james
  • Start date Start date
J

james

Hello,

PLEASE HELP!! :confused:

I am trying to adjust the look of the menus in an xls workbook using
the following VBA script:-

With CommandBars("Worksheet Menu Bar").Controls("File")
.Controls("New...").Visible = False
.Controls("Open...").Visible = False
.Controls("Save As...").Visible = False
BLAH BLAH etc

However, I cannot remove the list of recently opened files because i do
not know what its 'name' is. I do know its ID is 831 but I am
struggling to write a VBA statement that likes using ID numbers instead
of names.

Any answers would be greatly appreciated.
 
James,

With Application
.DisplayRecentFiles = False
.RecentFiles.Maximum = 0
End With

HTH,
Bernie
Excel MVP
 
Sub ClearMenu()
Dim x As CommandBarControl

For Each x In CommandBars(1).Controls(1).Controls
If x.ID = 831 Then x.Visible = false
Next
End Sub

You'll probably want to use the names, as you did in your example code; I
got tired of retyping it in the immediate window before I actually wrote the
sub.

--
HTH -

-Frank
Microsoft Excel MVP
Dolphin Technology Corp.
http://vbapro.com
 
Back
Top